Workaround for scattergl now always putting selected points on top layer #1206
Description
library(crosstalk)
d <- SharedData$new(mtcars)
p <- plot_ly(d, x = ~mpg, y = ~wt)
subplot(p, p) %>% toWebGL() %>% highlight("plotly_selected"){{ message }}
library(crosstalk)
d <- SharedData$new(mtcars)
p <- plot_ly(d, x = ~mpg, y = ~wt)
subplot(p, p) %>% toWebGL() %>% highlight("plotly_selected")