Nothing
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)
)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.