mirror of
https://github.com/rstudio/shiny.git
synced 2026-02-05 04:05:06 -05:00
32 lines
323 B
R
32 lines
323 B
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)
|