smoketests/stacktrace4/app.R

library(shiny)

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

ui <- function(req) {
  stopApp()
  badfunc()
}

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

shinyApp(ui, server)
ymd526442121/Rproject_shiny documentation built on May 4, 2019, 5:31 p.m.