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)
YTLogos/shiny documentation built on May 7, 2019, 10:38 a.m.