Ajustement réactivité

server.R

@@ -99,7 +99,7 @@ shinyServer(function(input, output, session){
       r$df_selection <- r$df_selection %>% filter(source_libelle == r$liste_source)
       r$liste_indicateur <- unique(r$df_selection$libelle_variable) %>% sort()
       updateSelectInput(session, inputId = "select_source", choices = r$liste_source)
-      updateSelectInput(session, inputId = "select_indicateur", choices = r$liste_indicateur)
+      updateSelectInput(session, inputId = "select_indicateur", choices = r$liste_indicateur, selected = r$select_indicateur)
     }
     
     # et on définit la liste des éventuelles familles associées à cet indicateur
@@ -121,14 +121,16 @@ shinyServer(function(input, output, session){
     r$liste_thematique <- c("Toutes", unique(base_indic$thematique) %>% sort())
     r$liste_sous_thematique <-  unique(base_indic$sous_thematique)%>% sort()
     r$liste_source <- c("Toutes", unique(base_indic$source_libelle) %>% sort())
+    r$select_indicateur <- NULL
+    r$liste_date <- "" 
+    r$familles_libelle <- NULL
 
     updateSelectInput(session, inputId = "select_thematique", choices = r$liste_thematique, selected = "Toutes")
     updateSelectInput(session, inputId = "select_sous_thematique", choices = r$liste_sous_thematique, selected = "Toutes")
     updateSelectInput(session, inputId = "select_source", choices = r$liste_source, selected = "Toutes")
     
     updateSelectInput(session, inputId = "select_indicateur", choices = NULL)
-    r$select_indicateur <- NULL
-    updateSelectInput(session, inputId = "selection_date", choices = NULL)
+    updateSelectInput(session, "selection_date", choices = r$liste_date, selected = "")
     updateSelectInput(session, inputId = "selection_famille", choices = NULL)
 
     updateRadioButtons(session, inputId = "select_TypeZone", choices = list("D\u00e9partements","Epci","Communes"), selected = "Epci")
@@ -137,7 +139,7 @@ shinyServer(function(input, output, session){
     updateRadioButtons(session, inputId = "select_TypeZone_compare", choices = list("R\u00e9gions", "D\u00e9partements", "Epci", "Communes"),
                        selected = "R\u00e9gions")
     updateSelectInput(session, inputId = "territoireetude_compare", choices = liste_REG)
-
+    
     r$carte_indic <- NULL
     r$titre_chiffre_clef <- NULL
     r$chiffre_clef_rmd <- NULL
@@ -145,12 +147,10 @@ shinyServer(function(input, output, session){
     r$hc_graph_evol <- NULL
     r$hc_graph_evol_compar <- NULL
     r$hc_donut <- NULL
-    
+
     r$df_indicateur <- NULL
     r$data <- NULL
-    r$liste_date <- NULL
     r$data_zone <- NULL
-    
   })