The rupture
function allows displaying a screen that appears after the user has been idle for ms
milliseconds.
library(shiny)
library(sever)
ui <- fluidPage(
useSever(),
h1("rupture"),
p("Wait for idle screen")
)
server <- function(input, output){
# set ms to 5 seconds for test
rupture(ms = 5000)
}
shinyApp(ui, server)
This consists of a new family of functions mirroring that of sever
which work exactly the same way.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.