update valuebox of comparison station

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

@@ -299,19 +299,22 @@ fillCol(
 ```{r}
 renderValueBox({
   ## Triggers each time a user clicks on the leaflet app or when a user uploads new data
-  input$uiOutput_select_station_marker_click
   userdata <- citizenair_userdata()
-  userdata$nearest_station <- userdata$appdata$getComparisonStation()
+  comparison_station <- input$uiOutput_select_station_marker_click
+  if(length(comparison_station) == 0){
+    comparison_station <- userdata$nearest_station
+  }
+  ui <- NULL
+  if(length(comparison_station) > 0){
     stations <- userdata$appdata$getStations()
-  stations <- subset(stations, id %in% userdata$nearest_station)
+    stations <- subset(stations, id %in% comparison_station)
     if(nrow(stations) > 0){
       txt <- stations$label
       txt <- strsplit(txt, "-")[[1]]
       txt <- trimws(txt)
       txt <- HTML(paste(txt, collapse = "<br>"))
       ui <- valueBox(txt, caption = "Vergelijk met officieel meetstation")  
-  }else{
-    ui <- NULL
+    }
   }
   ui
 })