inst/examples/DT-crosstalk/plotly-persist.R

In DT: A Wrapper of the JavaScript Library 'DataTables'

library(plotly)
library(crosstalk)
library(DT)

m <- SharedData$new(mtcars)
bscols(
  plot_ly(m, x = ~wt, y = ~mpg) %>%
    add_markers(text  = row.names(mtcars)) %>%
    config(displayModeBar = FALSE) %>%
    layout(
      title = "Hold shift while clicking \n markers for persistent selection",
      margin = list(t = 60)
    ),
  datatable(m)
)