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.

data-raw/create_datamart.R

@@ -4,10 +4,9 @@ library(datalibaba)
 library(tidyverse)
 library(furrr)
 library(COGiter)
-library(googlesheets4)
 # remotes::install_github("pachevalier/tricky")
 library(tricky)
-library(formattable)
+library(googlesheets4) 
 
 rm(list = ls())
 
@@ -60,7 +59,7 @@ metadata_theme_0 <- read_sheet("https://docs.google.com/spreadsheets/d/1n-dhtrJM
 # décomposition des indicateurs : lecture et mise en forme de la table des familles de répartition de chaque indicateur
 liens_indicateurs <- read_sheet("https://docs.google.com/spreadsheets/d/1n-dhtrJM3JwFVz5WSEGOQzQ8A0G7VT_VcxDe5gh6zSo/edit#gid=60292277",
                                 sheet = "table_liens_indicateurs") %>%
-  mutate(indicateur = tolower(indicateur)) %>% 
+  mutate(indicateur = tolower(indicateur), sous_indicateur = tolower(sous_indicateur)) %>% 
   left_join(metadata_donnee_0, by = c("indicateur" = "variable")) %>%
   rename(libelle_indicateur = libelle_variable) %>%
   select(indicateur, libelle_indicateur, sous_indicateur, famille, libelle_famille)
@@ -143,7 +142,7 @@ save(result_0, file = "data/result_0.RData")
 
 result_1 <- result_0 %>% # ensembles des données téléchargées du datamart
   # ajout des métadonnées associées : libellé, unités, secret, source
-  inner_join(metadata_donnee_0 %>% select(-source) , by = "variable") %>% # un left_join plutôt qu'un inner_join pour étudier les echecs de jointure
+  inner_join(metadata_donnee_0 %>% select(-source) %>% group_by(variable) %>% slice(1) %>% ungroup(), by = "variable") %>% # un left_join plutôt qu'un inner_join pour étudier les echecs de jointure
   filter(secret == "non") %>% # on ne garde que les indicateurs publics et appariés au référentiel des indicateurs
   filter(!is.na(date)) %>% 
   # ajout du libellé des sources