library(shiny) badfunc <- function() { stop("boom") } ui <- fluidPage( ) server <- function(input, output, session) { on.exit(stopApp()) badfunc() } shinyApp(ui, server)
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.