In my shiny app, I have something like this:
output$plot <- reactive({ if (condition) { stop("very very d