use try block

citizenair/inst/apps/citizenair/page02-exploratory.Rmd

@@ -134,7 +134,7 @@ observeEvent(input$uiInput_refresh_counter, {
   output$uiOutput_timeseries <- renderDygraph(
     plot_timeseries(x))
   
-  
+  try({
   mydata <- subset(x, phenomena_id %in% head(input$uiInput_phenomena, 1))
   if(all(c("citizen", "official") %in% mydata$type) & input$uiInput_aggregationlevel %in% c("min", "hour", "day", "week", "month")){
     ## DATE/REF/SENSOR
@@ -193,6 +193,8 @@ observeEvent(input$uiInput_refresh_counter, {
       plot_PI_CI
     })
   }  
+  })
+  
 })
 ```