From ef65b22b3ac47c6426230273299869a16be643a1 Mon Sep 17 00:00:00 2001 From: Juliette Engelaere-Lefebvre <juliette.engelaere@developpement-durable.gouv.fr> Date: Wed, 19 Jun 2024 12:37:51 +0200 Subject: [PATCH] =?UTF-8?q?Prod=5Felec=5Frenouvelable=20:=20mettre=20?= =?UTF-8?q?=C3=A0=20NA=20les=20EPCI=20=C3=A0=20cheval=20avant=202018=20clo?= =?UTF-8?q?ses=20#64?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit suppresion du total Fce métro pour fichiers foncier relates to #86 --- data-raw/chargement_prod_elec_renouv.R | 14 ++++++++++---- ...ogification_fichier_foncier_artificialisation.R | 2 +- data-raw/indicateur_statut_occupation_des_rp.R | 2 +- 3 files changed, 12 insertions(+), 6 deletions(-) diff --git a/data-raw/chargement_prod_elec_renouv.R b/data-raw/chargement_prod_elec_renouv.R index 59a7470..25283a1 100644 --- a/data-raw/chargement_prod_elec_renouv.R +++ b/data-raw/chargement_prod_elec_renouv.R @@ -74,6 +74,12 @@ zones_r52 <- filter(liste_zone, grepl("52", REG)) %>% unite(col = "IdZone", CodeZone, TypeZone, sep = "_") %>% mutate(across(everything(), fct_drop)) +epci_a_cheval <- liste_zone %>% + filter(grepl("52", REG), TypeZone == "Epci") %>% + rowwise() %>% + filter(length(REG) > 1) %>% + pull(CodeZone) + prod_elec_renouv <- prod_elec_renouv1 %>% select(-estimation, -type_estimation) %>% unite("IdZone", CodeZone, TypeZone) %>% @@ -84,10 +90,11 @@ prod_elec_renouv <- prod_elec_renouv1 %>% left_join(liste_zone %>% select(CodeZone, TypeZone, Zone), by = c("CodeZone", "TypeZone")) %>% mutate_if(is.factor, as.character) %>% - rename(variable = indicateur) %>% + rename(variable = indicateur) %>% + # Prod_elec_renouvelable : mettre à NA les EPCI à cheval avant 2018 + mutate(valeur = if_else(CodeZone %in% epci_a_cheval & date <= "2017-12-31", NA_real_, valeur)) %>% pivot_wider(names_from = variable, values_from = valeur) - # versement dans le sgbd/datamart.portrait_territoires + documentation ------------- # doublons - TRUE attendu @@ -98,7 +105,6 @@ prod_elec_renouv %>% source("R/poster_documenter_ind.R") -poster_documenter_ind(df = prod_elec_renouv, nom_table_sgbd = "cogifiee_prod_elec_renouv", - comm_source_en_plus = "") +poster_documenter_ind(df = prod_elec_renouv, comm_source_en_plus = "") rm(list=ls()) diff --git a/data-raw/cogification_fichier_foncier_artificialisation.R b/data-raw/cogification_fichier_foncier_artificialisation.R index dba0ff2..c42d763 100644 --- a/data-raw/cogification_fichier_foncier_artificialisation.R +++ b/data-raw/cogification_fichier_foncier_artificialisation.R @@ -7,7 +7,7 @@ source("R/cogifier_it.R") source("R/poster_doc_post_cogifier.R") # cogification -cogifier_it(nom_source = "fichier_foncier_artificialisation") +cogifier_it(nom_source = "fichier_foncier_artificialisation", metro = FALSE) # versement dans le sgbd/datamart.portrait_territoires et metadonnee ------------- poster_documenter_post_cogifier(source = "fichier_foncier_artificialisation") diff --git a/data-raw/indicateur_statut_occupation_des_rp.R b/data-raw/indicateur_statut_occupation_des_rp.R index b94c44d..902db02 100644 --- a/data-raw/indicateur_statut_occupation_des_rp.R +++ b/data-raw/indicateur_statut_occupation_des_rp.R @@ -40,7 +40,7 @@ indicateur_statut_occupation_des_rp <- cogifiee_statut_occupation_des_rp %>% # versement dans le sgbd/datamart.portrait_territoiresdes données et de leur métadonnées ------------- source("R/poster_documenter_ind.R", encoding = "UTF-8") -poster_documenter_ind(df = indicateur_statut_occupation_des_rp, nom_table_sgbd = "indicateur_statut_occupation_des_rp", +poster_documenter_ind(df = indicateur_statut_occupation_des_rp, nom_table_sgbd = "indicateur_statut_occupation_des_rp", comm_source_en_plus = "") rm(list=ls()) -- GitLab