DESCRIPTION

 Package: propre.artificialisation
 Title: Publication template on land use
 Version: 0.0.0.9000
-Authors@R: 
-    c(person(given = "Daniel",
-             family = "Kalioudjoglou",
-             role = "aut",
-             email = "daniel.kalioudjoglou@developpement-durable.gouv.fr"),
-      person(given = "Gwenaelle",
-             family = "Le Bourhis",
-             role = "aut",
-             email = "gwenaelle.lebourhis@developpement-durable.gouv.fr"),
-      person(given = "Mael",
-             family = "Theuliere",
-             role = c("aut", "cre"),
-             email = "mael.theuliere@gmail.com"))
+Authors@R: c(
+    person("Daniel", "Kalioudjoglou", , "daniel.kalioudjoglou@developpement-durable.gouv.fr", role = "aut"),
+    person("Gwenaelle", "Le Bourhis", , "gwenaelle.lebourhis@developpement-durable.gouv.fr", role = "aut"),
+    person("Mael", "Theuliere", , "mael.theuliere@gmail.com", role = c("aut", "cre"))
+  )
 Description: The goal of propre.artificialisation is to produce a
     publication on land use in Pays de la Loire.
 License: GPL (>= 3)

R/data.R

@@ -74,6 +74,21 @@
 #' @source \url{https://agreste.agriculture.gouv.fr/agreste-web/disaron/W0020/detail/}
 "observatoire_artificialisation_gk3"
 
+#' Table contenant les différents indicateurs de la source stock_artificialise utiles pour la publication.
+#'
+#' @encoding UTF-8
+#' @format  Table de 3939 lignes et 5 colonnes:
+#' \describe{
+#'   \item{TypeZone}{Type de territoire}
+#'   \item{CodeZone}{Code du territoire}
+#'   \item{Zone}{Libellé du territoire}
+#'   \item{date}{Millésime de la source}
+#'   \item{surface_artificialisee}{surface artificialisee}
+#' }
+#' @source \url{https://agreste.agriculture.gouv.fr/agreste-web/disaron/W0020/detail/}
+"stock_artificialise"
+
+
 #' Table contenant les différents indicateurs de la source population_legale utiles pour la publication.
 #'
 #' @encoding UTF-8

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(surface_artificialisee=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)

man/stock_artificialise.Rd

+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/data.R
+\docType{data}
+\encoding{UTF-8}
+\name{stock_artificialise}
+\alias{stock_artificialise}
+\title{Table contenant les différents indicateurs de la source stock_artificialise utiles pour la publication.}
+\format{
+Table de 3939 lignes et 5 colonnes:
+\describe{
+\item{TypeZone}{Type de territoire}
+\item{CodeZone}{Code du territoire}
+\item{Zone}{Libellé du territoire}
+\item{date}{Millésime de la source}
+\item{surface_artificialisee}{surface artificialisee}
+}
+}
+\source{
+\url{https://agreste.agriculture.gouv.fr/agreste-web/disaron/W0020/detail/}
+}
+\usage{
+stock_artificialise
+}
+\description{
+Table contenant les différents indicateurs de la source stock_artificialise utiles pour la publication.
+}
+\keyword{datasets}