Nothing
library("shiny")
library("shinyWidgets")
ui <- function(request) {
fluidPage(
tags$h1("shinyWidgets - bookmarking"),
textInput(inputId = "txt", label = "Text"),
switchInput(inputId = "swh", label = "Switch"),
checkboxInput(inputId = "chk", label = "Checkbox"),
bookmarkButton()
)
}
server <- function(input, output, session) {
}
enableBookmarking("url")
shinyApp(ui, server)
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.