Merge branch '83-reprendre-la-methode-de-chargement-des-donnees-rpls' into 'master'

modification dataprep_all

Closes #83

See merge request !36

R/cogifier_en_masse.R

@@ -27,4 +27,14 @@ map(.x = scripts_ind, .f = source)
 # > scripts_ind[10]
 # [1] "data-raw/indicateur_fichier_foncier_etalement_urbain.R"
 
-      
\ No newline at end of file
+# Manuellement, faire tourner les scripts qui aboutissent à de la donnée COGifiée directement
+# - EnR de réseau
+# - déchets ADEME
+# - SICLOP
+# - RPLS
+
+## Pour les trouver : 
+# utiliser menu Edit / Find in files... / Find: "cogifiee_ / Search in: ~/sgbd_datamart/data-raw / 
+#                                         Search these files: Custom Filter / chargement_*.R, 
+# puis cliquer sur 'find' pour rechercher les noms de tables postées qui commence par cogifiee_ dans les scripts de chargement
+

data-raw/chargement_rpls.R

@@ -18,14 +18,14 @@ source(file = "R/dataprep_all.R")
 rpls_prep <- dataprep_all() %>% 
   filter(!is.na(millesime))
 
-#liste des communes des EPCI de la région Pays de la Loire
-communes_region52 <- communes %>%
-  filter(grepl("52", REGIONS_DE_L_EPCI)) %>%
-  mutate(DEPCOM = as.character(DEPCOM))  %>%
-  pull(DEPCOM)
+# #liste des communes des EPCI de la région Pays de la Loire
+# communes_region52 <- communes %>%
+#   filter(grepl("52", REGIONS_DE_L_EPCI)) %>%
+#   mutate(DEPCOM = as.character(DEPCOM))  %>%
+#   pull(DEPCOM)
 
 rpls <- rpls_prep %>%
-  filter(TypeZone %in% c("Départements", "Régions", "Epci", "France") | CodeZone %in% communes_region52 ) %>%
+  # filter(TypeZone %in% c("Départements", "Régions", "Epci", "France") | CodeZone %in% communes_region52 ) %>%
   mutate(date = make_date(as.character(millesime), 01, 01),
          across(where(is.character), as.factor)) %>%
   select(-millesime) %>%