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