Render plot to webGL.

parent 886c0b9b
......@@ -550,7 +550,8 @@ server <- function(input, output, session) {
ggplotly(p, tooltip = "none") %>% layout(legend = list(orientation = "v", x = 1, y = 0.8)) %>%
config(p = ., staticPlot = FALSE, doubleClick = "reset+autosize", autosizable = TRUE, displayModeBar = TRUE,
sendData = FALSE, displaylogo = FALSE,
modeBarButtonsToRemove = c("sendDataToCloud", "lasso2d", "select2d", "hoverCompareCartesian")) # Control Plotly's tool bar
modeBarButtonsToRemove = c("sendDataToCloud", "lasso2d", "select2d", "hoverCompareCartesian")) %>% # Control Plotly's tool bar
toWebGL()
}
})
......@@ -613,7 +614,7 @@ server <- function(input, output, session) {
}
return(df)
}
}) %>% debounce(250)
})
## Get clicked point
## This selects it in the data table
observe({
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment