smoketests/stacktrace2/app.R

library(shiny)

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

A <- reactive({
  badfunc()
})

B <- reactive({
  A()
})

C <- reactive({
  B()
})

ui <- fluidPage(
  textOutput("foo"),
  dataTableOutput("bar")
)

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

  output$foo <- renderText({
    C()
  })
  output$bar <- renderDataTable({
    C()
  })
}

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