Nothing
library(shiny)
library(shinydisconnect)
ui <- fluidPage(
disconnectMessage(
text = "Your session timed out, reload the application.",
refresh = "Reload now",
background = "#f89f43",
colour = "white",
overlayColour = "grey",
overlayOpacity = 0.3,
refreshColour = "brown"
),
actionButton("disconnect", "Disconnect the app")
)
server <- function(input, output, session) {
observeEvent(input$disconnect, {
session$close()
})
}
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.