integration des nouvelles tables de stock

integration de test avec 3 millesimes identiques

data-raw/dataprep.R

@@ -78,6 +78,53 @@ population_legale<-dbReadTable(con_datamart,
 ocsge<-dbReadTable(con_datamart,
                               c("portrait_territoires","cogifiee_ocsge"))
 
+
+# chargement des donnees de stock issues des fichiers fonciers - fichier SACad202.csv
+# stock calculé : variable Dcntari « Suf artificialisés »=  DCNT 07 + DCNT 09 + DCNT 10 + DCNT 11 + DCNT 12 + DCNT 13
+# DCNT 07 « carrières »,
+# DCNT 09 « jardins »,
+# DCNT 10 « terrains à bâtir »,
+# DCNT 11 « terrains d’agrément »,
+# DCNT 12 « chemin de fer »,
+# DCNT 13 « sol ».
+# Les surfaces  non  cadastrées  de  voiries  ont été  calculées à  partir de  la BD-Topo   de  l’IGN,  l’institut national de l’information géographique et forestière.
+
+# liste des csv à importer :
+liste_fichiers <- list.files('extdata',pattern = "SACad",full.names = TRUE)
+annees <- str_replace_all(liste_fichiers,"extdata/SACad","")
+annees <- str_replace_all(annees,".csv","")
+
+# import des données :
+stock_artificialise_1 <- read.csv2(liste_fichiers[1], as.is = TRUE, sep="," , encoding = "UTF-8") %>%
+  select("idcom","dcntarti") %>%
+  mutate (idcom= as.character(idcom),
+          date = annees[1])%>%
+  passer_au_cog_a_jour(code_commune = idcom,
+                       aggrege=F)%>%
+  cogifier()
+stock_artificialise_2 <- read.csv2(liste_fichiers[2], as.is = TRUE, sep="," , encoding = "UTF-8") %>%
+  select("idcom","dcntarti") %>%
+  mutate (idcom= as.character(idcom),
+          date = annees[2])%>%
+  passer_au_cog_a_jour(code_commune = idcom,
+                       aggrege=F)%>%
+  cogifier()
+stock_artificialise_3 <- read.csv2(liste_fichiers[3], as.is = TRUE, sep="," , encoding = "UTF-8") %>%
+  select("idcom","dcntarti") %>%
+  mutate (idcom= as.character(idcom),
+          date = annees[3])%>%
+  passer_au_cog_a_jour(code_commune = idcom,
+                       aggrege=F)%>%
+  cogifier()
+stock_artificialise <- bind_rows(stock_artificialise_1,stock_artificialise_2,stock_artificialise_3)%>%
+  mutate(date = ymd(paste0(date,'01','01')))%>%
+  filter (TypeZone != "France")%>%
+  rename(stock_artificialise=dcntarti) %>%
+  mutate(across(where(is.character),as.factor))
+rm(stock_artificialise_1,stock_artificialise_2,stock_artificialise_3,annees,liste_fichiers)
+
+
+
 rm(con_datamart, drv)
 
 metadata_donnee <- read.csv2("extdata/indicateurs.csv", as.is = TRUE, encoding = "UTF-8") %>%
@@ -103,7 +150,6 @@ population_legale <- select_donnees_region (indicateur=population_legale)
 ocsge <- select_donnees_region (indicateur=ocsge)
 
 
-
 usethis::use_data(teruti, overwrite = TRUE, internal = FALSE)
 usethis::use_data(observatoire_artificialisation, overwrite = TRUE, internal = FALSE)
 usethis::use_data(observatoire_artificialisation_gk3, overwrite = TRUE, internal = FALSE)
@@ -111,4 +157,4 @@ usethis::use_data(etalement_urbain, overwrite = TRUE, internal = FALSE)
 usethis::use_data(population_legale, overwrite = TRUE, internal = FALSE)
 usethis::use_data(ocsge, overwrite = TRUE, internal = FALSE)
 usethis::use_data(metadata_donnee, overwrite = TRUE, internal = FALSE)
-
+usethis::use_data(stock_artificialise, overwrite = TRUE, internal = FALSE)