smoketests/stacktrace3/app.R

library(shiny)

badfunc <- function() {
  stop("boom")
}

ui <- fluidPage(
)

server <- function(input, output, session) {
  on.exit(stopApp())
  badfunc()
}

shinyApp(ui, server)
austin3087/https-github.com-rstudio-shiny documentation built on Nov. 3, 2019, 2:01 p.m.