Nothing
library(flexdashboard)
library(ggiraph) library(ggplot2) library(magrittr) dataset = iris dataset$tooltip = dataset$Species dataset$clickjs = paste0("alert(\"",dataset$Species, "\")" ) # plots gg_point = ggplot(dataset, aes(x = Sepal.Length, y = Petal.Width, color = Species, data_id = Species, tooltip = tooltip, onclick = clickjs) ) + geom_point_interactive() + theme_light() x <- ggiraph(code = {print(gg_point)}, zoom_max = 4, hover_css = "stroke:black;fill:orange;") x
DT::datatable(dataset)
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.