mirror of
https://github.com/rstudio/shiny.git
synced 2026-02-05 04:05:06 -05:00
18 lines
209 B
R
18 lines
209 B
R
library(shiny)
|
|
|
|
badfunc <- function() {
|
|
stop("boom")
|
|
}
|
|
|
|
ui <- function(req) {
|
|
stopApp()
|
|
badfunc()
|
|
}
|
|
|
|
server <- function(input, output, session) {
|
|
on.exit(stopApp())
|
|
badfunc()
|
|
}
|
|
|
|
shinyApp(ui, server)
|