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