Skip to content

Instantly share code, notes, and snippets.

@jlitven

jlitven/server.R

Created November 6, 2016 17:12
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save jlitven/250407907a0a00a122b37e16058f97cd to your computer and use it in GitHub Desktop.
Save jlitven/250407907a0a00a122b37e16058f97cd to your computer and use it in GitHub Desktop.
Download ZIP
Raw
server.R
tracks_features_scatter <- gvisScatterChart(scatter,
options = list(
tooltip = "{isHtml:'True'}",
legend =
"none", lineWidth = 0, pointSize = 5,
title = "Track Features",
vAxis = paste0("{title:'", plot_labels[input$scatter_ycol], "'}"),
hAxis = paste0("{title:'", plot_labels[input$scatter_xcol], "'}"),
width = 1000, height = 500,
gvis.listener.jscode = "
if(chart.getSelection().length > 0){
var row_index = chart.getSelection()[0].row;
var tooltip = data.getValue(row_index, 2);
Shiny.onInputChange('tooltip',tooltip);
}else{Shiny.onInputChange('tooltip', '');}"))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment