smoketests/stacktrace1/app.R

library(shiny)

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

A <- reactive({
  badfunc()
})

B <- reactive({
  A()
})

C <- reactive({
  B()
})

ui <- fluidPage(
  plotOutput("foo")
)

server <- function(input, output, session) {
  session$onFlushed(stopApp)

  output$foo <- renderPlot({
    C()
  })
}

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