mise à jour des sources EnR et conso SDES (millesime 2022, COG 2023)

R/poster_documenter_ind.R

@@ -44,10 +44,11 @@ poster_documenter_ind <- function(df = indicateur_bimotor_menages, nom_table_sgb
   googlesheets4::gs4_deauth()
   
   ## chargement du référentiel indicateurs google sheet
-  metadata_indicateur <- googlesheets4::read_sheet("https://docs.google.com/spreadsheets/d/1n-dhtrJM3JwFVz5WSEGOQzQ8A0G7VT_VcxDe5gh6zSo/edit#gid=60292277",
-                                    sheet = "indicateurs") %>%
+  metadata_indicateur0 <- googlesheets4::read_sheet("https://docs.google.com/spreadsheets/d/1n-dhtrJM3JwFVz5WSEGOQzQ8A0G7VT_VcxDe5gh6zSo/edit#gid=60292277",
+                                    sheet = "indicateurs")
+  metadata_indicateur <- metadata_indicateur0 %>%
     # on ne garde que les variables concernées par le présent script de chargement
-    dplyr::filter(source == nom_script_sce) %>% 
+    dplyr::filter(source == nom_script_sce)  %>% 
     # on ajoute l'unité dans le libellé de la variable
     dplyr::mutate(libelle_variable = paste0(libelle_variable, " (unit\u00e9 : ", unite, ")")) %>% 
     dplyr::select(variable, libelle_variable) %>% 
@@ -64,6 +65,7 @@ poster_documenter_ind <- function(df = indicateur_bimotor_menages, nom_table_sgb
   
   ## Vérification que la documentation des indicateurs est complète
   var_mq <- dplyr::setdiff(var, metadata_indicateur$variable) %>% paste(collapse = "\n")
+  
   var_en_trop <- dplyr::setdiff(metadata_indicateur$variable, c("date", "typezone", "TypeZone", "CodeZone", "codezone", "Zone", "zone", var)) %>% paste(collapse = "\n")
   attempt::stop_if_not(all(var %in% metadata_indicateur$variable),
                        msg = glue::glue("La table df contient des variables non document\u00e9es dans le r\u00e9f\u00e9rentiel google sheet : \n{var_mq}\n"))
@@ -81,8 +83,9 @@ poster_documenter_ind <- function(df = indicateur_bimotor_menages, nom_table_sgb
     stringr::str_replace("indicateur_", "") %>%
     stringr::str_replace("_cogiter|_cog$", "")
   
-  metadata_source <- googlesheets4::read_sheet("https://docs.google.com/spreadsheets/d/1n-dhtrJM3JwFVz5WSEGOQzQ8A0G7VT_VcxDe5gh6zSo/edit#gid=60292277",
-                                sheet = "sources") %>%
+  metadata_source0 <- googlesheets4::read_sheet("https://docs.google.com/spreadsheets/d/1n-dhtrJM3JwFVz5WSEGOQzQ8A0G7VT_VcxDe5gh6zSo/edit#gid=60292277",
+                                sheet = "sources") 
+  metadata_source <- metadata_source0  %>%
     dplyr::filter(source == nom_sce) %>% 
     dplyr::mutate(com_table = paste0(source_lib, " - ", producteur, ".\n", descriptif_sources)) %>% 
     dplyr::pull(com_table) %>% 

data-raw/chargement_conso_elec_179.R

@@ -4,7 +4,7 @@
 # consommation electrique art 179 ltecv fournies par le SDES
 
 # on récupère les données préalablement nettoyées dans le cadre du POC ENR TEO dans le SGBD
-# script de nettoyage : https://gitlab.com/dreal-datalab/enr_reseaux_teo/-/tree/dev/collecte/conso_elec
+# script de nettoyage : https://gitlab-forge.din.developpement-durable.gouv.fr/dreal-pdl/csd/enr_reseaux_teo/-/tree/dev/collecte/conso_elec
 # initialement fournies par https://www.statistiques.developpement-durable.gouv.fr/donnees-locales-de-consommation-denergie 
 
 
@@ -24,7 +24,7 @@ rm(list=ls())
 
 
 # paramètres -----------
-mill <- 2021
+mill <- 2022
 sgbd <- FALSE
 
 if(sgbd) {

data-raw/chargement_conso_gaz_179.R

@@ -4,7 +4,7 @@
 # consommation gaz art 179 ltecv fournies par le SDES
 
 # on récupère les données préalablement nettoyées dans le cadre du POC ENR TEO dans le SGBD
-# script de nettoyage : https://gitlab.com/dreal-datalab/enr_reseaux_teo/-/tree/dev/collecte/conso_gaz
+# script de nettoyage : https://gitlab-forge.din.developpement-durable.gouv.fr/dreal-pdl/csd/enr_reseaux_teo/-/tree/dev/collecte/conso_gaz
 # initialement fournies par https://www.statistiques.developpement-durable.gouv.fr/donnees-locales-de-consommation-denergie 
 
 # librairies -----------
@@ -23,7 +23,7 @@ rm(list=ls())
 
 
 # paramètres ---------
-mill <- 2021
+mill <- 2022
 sgbd <- FALSE
 
 if(sgbd) {

data-raw/chargement_prod_biomethane.R

@@ -22,7 +22,7 @@ rm(list=ls())
 
 # paramètres ----------
 mil <- 2022
-table <- paste0("indic", mil, "com_frce_entiere")
+table <- paste0("indic_biogaz_", mil, "_com_frce_entiere")
 
 
 # lecture des données versées dans le sgbd/production/gaz dans le cadre du POC ENR TEO -----
@@ -35,7 +35,7 @@ prod_biomethane2 <- prod_biomethane %>%
   mutate(type = gsub(" |'", "_", tolower(type)) %>%
            gsub("_d_", "_", .) %>% 
            gsub("é", "e", .)) %>% 
-  unite(col="indicateur", type, indicateur, sep = ".", remove=TRUE) 
+  unite(col="indicateur", type, indicateur, sep = ".", remove = TRUE) 
 
 # ajout de l'indicateur 'total'
 prod_biomethane3 <- prod_biomethane %>% 

data-raw/chargement_prod_elec_renouv.R

@@ -26,7 +26,7 @@ source("R/poster_documenter_ind.R")
 
 
 # paramètres ----------
-mil <- 2021
+mil <- 2022
 reg <- 52
 table <- paste0("prod_elec_renouv_2011_", mil, "_r", reg)