From e39995643dfe72654e7769f79cedadd1becbee2e Mon Sep 17 00:00:00 2001
From: Juliette Engelaere-Lefebvre
<juliette.engelaere@developpement-durable.gouv.fr>
Date: Wed, 17 Apr 2024 17:39:33 +0200
Subject: [PATCH] =?UTF-8?q?mise=20=C3=A0=20jour=20des=20sources=20EnR=20et?=
=?UTF-8?q?=20conso=20SDES=20(millesime=202022,=20COG=202023)?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
---
R/poster_documenter_ind.R | 13 ++++++++-----
data-raw/chargement_conso_elec_179.R | 4 ++--
data-raw/chargement_conso_gaz_179.R | 4 ++--
data-raw/chargement_prod_biomethane.R | 4 ++--
data-raw/chargement_prod_elec_renouv.R | 2 +-
5 files changed, 15 insertions(+), 12 deletions(-)
diff --git a/R/poster_documenter_ind.R b/R/poster_documenter_ind.R
index 1dcb7e8..cacdb64 100644
--- a/R/poster_documenter_ind.R
+++ b/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) %>%
diff --git a/data-raw/chargement_conso_elec_179.R b/data-raw/chargement_conso_elec_179.R
index 92309bf..20c47d6 100644
--- a/data-raw/chargement_conso_elec_179.R
+++ b/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) {
diff --git a/data-raw/chargement_conso_gaz_179.R b/data-raw/chargement_conso_gaz_179.R
index 71e6d9c..fc675e4 100644
--- a/data-raw/chargement_conso_gaz_179.R
+++ b/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) {
diff --git a/data-raw/chargement_prod_biomethane.R b/data-raw/chargement_prod_biomethane.R
index b5ca260..fb6835a 100644
--- a/data-raw/chargement_prod_biomethane.R
+++ b/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 %>%
diff --git a/data-raw/chargement_prod_elec_renouv.R b/data-raw/chargement_prod_elec_renouv.R
index 2b3debe..59a7470 100644
--- a/data-raw/chargement_prod_elec_renouv.R
+++ b/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)
--
GitLab