Déploiement juin 2024

Mise à Jour des Indicateurs : nouveaux millésimes et passage au COG 2024 Téléchargement Personnalisé : Vous avez maintenant la possibilité de télécharger uniquement un ou plusieurs indicateurs d’une source spécifique à la maille géographique souhaitée.

server.R

@@ -30,25 +30,43 @@ shinyServer(function(input, output, session){
                    r$liste_date <- c("")
                  } else if(input$select_sous_thematique == "Toutes" & input$select_source == "Toutes") {
                    r$df_selection <- base_indic %>% filter(thematique == input$select_thematique)
-                   r$liste_indicateur <- unique(r$df_selection$libelle_variable) %>% sort()
+                   r$liste_indicateur <- r$df_selection %>%
+                     dplyr::pull(variable) %>% 
+                     stats::setNames(r$df_selection %>% pull(libelle_variable)) %>% 
+                     sort()
                  } else if(input$select_thematique == "Toutes" & input$select_source == "Toutes") {
                    r$df_selection <- base_indic %>% filter(sous_thematique == input$select_sous_thematique)
-                   r$liste_indicateur <- unique(r$df_selection$libelle_variable) %>% sort()
+                   r$liste_indicateur <- r$df_selection %>%
+                     dplyr::pull(variable) %>% 
+                     stats::setNames(r$df_selection %>% pull(libelle_variable)) %>% 
+                     sort()
                  } else if(input$select_thematique == "Toutes" & input$select_sous_thematique == "Toutes") {
                    r$df_selection <- base_indic %>% filter(source_libelle == input$select_source)
-                   r$liste_indicateur <- unique(r$df_selection$libelle_variable) %>% sort()
+                   r$liste_indicateur <- r$df_selection %>%
+                     dplyr::pull(variable) %>% 
+                     stats::setNames(r$df_selection %>% pull(libelle_variable)) %>% 
+                     sort()
                  } else if(input$select_sous_thematique == "Toutes") {
                    r$df_selection <- base_indic %>% filter(thematique == input$select_thematique, source_libelle == input$select_source)
-                   r$liste_indicateur <- unique(r$df_selection$libelle_variable) %>% sort()
+                   r$liste_indicateur <- r$df_selection %>%
+                     dplyr::pull(variable) %>% 
+                     stats::setNames(r$df_selection %>% pull(libelle_variable)) %>% 
+                     sort()
                  } else if(input$select_thematique == "Toutes") {
                    r$df_selection <- base_indic %>% filter(sous_thematique == input$select_sous_thematique, source_libelle == input$select_source)
-                   r$liste_indicateur <- unique(r$df_selection$libelle_variable) %>% sort()
+                   r$liste_indicateur <- r$df_selection %>%
+                     dplyr::pull(variable) %>% 
+                     stats::setNames(r$df_selection %>% pull(libelle_variable)) %>% 
+                     sort()
                  } else if(input$select_source == "Toutes") {
                    r$df_selection <- base_indic %>% filter(thematique == input$select_thematique, sous_thematique == input$select_sous_thematique)
                  } else {
                    r$df_selection <- base_indic %>%
                      filter(thematique == input$select_thematique, sous_thematique == input$select_sous_thematique, source_libelle == input$select_source)
-                   r$liste_indicateur <- unique(r$df_selection$libelle_variable) %>% sort()
+                   r$liste_indicateur <- r$df_selection %>%
+                     dplyr::pull(variable) %>% 
+                     stats::setNames(r$df_selection %>% pull(libelle_variable)) %>% 
+                     sort()
                  }
                  
                  # actualisation des listes de choix possibles à partir du dataset des sélections possibles
@@ -73,7 +91,10 @@ shinyServer(function(input, output, session){
   observeEvent(r$select_indicateur, {
     req(r$df_selection, r$liste_indicateur, r$select_indicateur)
     
-    r$df_indicateur <- filter(result, libelle_variable == r$select_indicateur) %>% 
+    r$df_indicateur <- filter(
+      result, 
+      variable == r$select_indicateur
+      ) %>% 
       mutate(annee = year(date)) %>%
       arrange(desc(date))
     
@@ -92,25 +113,29 @@ shinyServer(function(input, output, session){
     # et on restreint la liste des indicateurs selectionnables à ceux de la source
     if(input$select_source == "Toutes") {
       r$liste_source <- base_indic %>%
-        filter(libelle_variable == input$select_indicateur) %>%
+        filter(variable == input$select_indicateur) %>%
         slice(1) %>%
         pull(source_libelle) %>%
         unique(c(., "Toutes"))
       r$df_selection <- r$df_selection %>% filter(source_libelle == r$liste_source)
-      r$liste_indicateur <- unique(r$df_selection$libelle_variable) %>% sort()
+      r$liste_indicateur <- r$df_selection %>%
+        dplyr::pull(variable) %>% 
+        stats::setNames(r$df_selection %>% pull(libelle_variable)) %>% 
+        sort()
+      
       updateSelectInput(session, inputId = "select_source", choices = r$liste_source)
       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
     r$familles_libelle <- liens_indicateurs %>%
-      filter (libelle_indicateur == input$select_indicateur) %>%
+      filter (indicateur == input$select_indicateur) %>%
       pull(libelle_famille) %>%
       unique()
     updateSelectInput(session, inputId = "selection_famille", choices = c(r$familles_libelle))
     # et on précharge les données familles associées à cet indicateur
     r$data_famille <- result %>%
-      filter(libelle_indicateur == input$select_indicateur)
+      filter(indicateur == input$select_indicateur)
   })
   
   
@@ -380,14 +405,19 @@ shinyServer(function(input, output, session){
   
   observeEvent(input$telecharger_SelectSource, {
     liste_telecharger_SelectIndicateurs <- filter(base_indic, source_libelle == input$telecharger_SelectSource) %>% 
-      pull(libelle_variable) %>% 
-      unique() %>% 
+      pull(variable) %>% 
+        stats::setNames(
+          base_indic %>%
+            filter(source_libelle == input$telecharger_SelectSource) %>% 
+            pull(libelle_variable)
+        ) %>%
+      unique() %>%
+      sort() %>% 
       c("Tous", .) %>% 
       as.factor()
     updateSelectInput(session, "telecharger_SelectIndicateurs", choices = liste_telecharger_SelectIndicateurs, selected = "Tous")
   }, ignoreNULL = TRUE)
   
-  
   observeEvent(c(input$telecharger_SelectSource), { 
     liste_telecharger_SelectMailles <- filter(result, source_libelle == input$telecharger_SelectSource) %>% 
       pull(TypeZone) %>%
@@ -431,13 +461,17 @@ shinyServer(function(input, output, session){
     
     if(!("Tous" %in% input$telecharger_SelectIndicateurs)) {
       r$data_a_telecharger <- r$data_a_telecharger %>%
-        filter(libelle_variable %in% input$telecharger_SelectIndicateurs)
+        filter(variable %in% input$telecharger_SelectIndicateurs)
     }
   
     r$data_tableau <- r$data_a_telecharger %>%
       select(TypeZone, Zone, CodeZone, date, libelle_variable, valeur, unite, source_libelle) %>% 
       distinct() %>% 
-      set_names(c("Type de collectivit\u00e9", "Nom de la collectivit\u00e9", "Code Officiel g\u00e9ographique", "Date", "Indicateur", "Valeur", "Unit\u00e9", "Source"))
+      set_names(
+        c("Type de collectivit\u00e9", "Nom de la collectivit\u00e9",
+          "Code Officiel g\u00e9ographique",
+          "Date", "Indicateur", "Valeur", "Unit\u00e9", "Source")
+        )
     
     r$data_csv <- r$data_tableau
   })