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()
-  stations <- userdata$appdata$getStations()
-  stations <- subset(stations, id %in% userdata$nearest_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
+  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% 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")  
+    }
   }
   ui
 })