quick fix #58 #59

R/mod_data.R

@@ -36,7 +36,6 @@ dataServer <- function(id, state) {
           )
 
 
-
         tbl <- DT::datatable(
           data = table_data,
           class = "display nowrap",

R/mod_side_geography.R

@@ -42,7 +42,7 @@ sidebarGeoUI <- function(id) {
       ns("sel_maa"),
       "Managed access area",
       choices = fma_init_geo_selections$maa$choices,
-      selected = fma_init_geo_selections$maa$selected,
+      selected = NULL,
       multiple = TRUE,
       selectize = TRUE
     ),
@@ -176,13 +176,19 @@ sidebarGeoServer <- function(id, state) {
           if (!setequal(input$sel_maa, state$maa$selected)) {
             state$maa$selected <- input$sel_maa
           }
-          state$data_filtered <- state$data_full %>%
+           data_filtered <- state$data_full %>%
             dplyr::filter(
               country %in% input$sel_country,
               subnational %in% input$sel_subnational,
               local %in% input$sel_local,
               maa %in% input$sel_maa
             )
+
+
+          state$data_filtered <- data_filtered
+          state$data_summary_filtered <- data_filtered %>%
+            create_data_summary()
+
         },
         ignoreInit = TRUE
       )

R/mod_side_performance_indicators.R

@@ -69,6 +69,7 @@ sidebarIndicatorServer <- function(id, state) {
 
         # ---- Data tab
         if (current_tab %in% c("1. Assess data", "2. Visualize data", "3. Visualize data")) {
+
           ui[["date_slider"]] <- div(
             class = "date_slider pi_widget",
             sliderInput(ns("date_range"),
@@ -80,7 +81,8 @@ sidebarIndicatorServer <- function(id, state) {
               timeFormat = "%F"
             )
           )
-        }
+          }
+
 
 
 
@@ -145,6 +147,7 @@ sidebarIndicatorServer <- function(id, state) {
 
         state$data_filtered <- data_filtered
 
+
         state$data_summary_filtered <- data_filtered %>%
           create_data_summary()