fix selection problem by reading check group from availableData

inbo · Jan 2, 2024 · eea675b · eea675b
1 parent fc8e843
commit eea675b
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/reporting-grofwild/R/app_dashboard.R b/reporting-grofwild/R/app_dashboard.R
@@ -83,10 +83,11 @@ dashboardChoicesServer <- function(id, choices, uiText, regionLevel) {
 
           previousSelected <- input$indicators
 
-          choicesUpdate <- if(regionLevel() %in% c("flanders", "provinces")) choices else setdiff(choices, "F18_8")
+          ## this is done in "availableData"
+          #choicesUpdate <- if(isolate(regionLevel()) %in% c("flanders", "provinces")) choices else setdiff(choices, "F18_8")
 
           updateCheckboxGroupInput(session = session, inputId = "indicators",
-            choices = namedChoices(choicesUpdate, uiText = uiText, regionLevel = regionLevel()),
+            choices = namedChoices( choices , uiText = uiText, regionLevel = regionLevel()),
             selected = previousSelected)
 
         })