Nothing
library(ggvis)
shinyUI(bootstrapPage(
ggvisOutput("plot1"),
h3("Summary of brushed data (sent from client to server)"),
verbatimTextOutput("brush_data")
))
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.