Resolve "Mise à jour des graphiques et cartes utilisant les stocks"

Closes #66 (closed)

R/creer_carte_2_8.R

 #' Creation de la carte de l evolution des surfaces artificialisees par commune en pourcentage
 #' @description Carte de l evolution des surfaces artificialisees par commune en pourcentage
 #'
-#' @param millesime_obs_artif_gk3 une année parmi les millesimes sélectionnables par l'utilisateur, au format numerique.
+#' @param millesime_stock_artif une année parmi les millesimes sélectionnables par l'utilisateur, au format numerique.
 #' @param code_reg code insee de la région sur laquelle construire le graphique
 #'
 #' @return Une carte regionale
@@ -19,32 +19,32 @@
 #' @export
 #'
 #' @examples
-#' creer_carte_2_8(millesime_obs_artif_gk3 = 2019, code_reg = 52)
+#' creer_carte_2_8(millesime_stock_artif = 2020, code_reg = 52)
 #'
-creer_carte_2_8 <- function(millesime_obs_artif_gk3 = NULL,
+creer_carte_2_8 <- function(millesime_stock_artif = NULL,
                              code_reg = NULL) {
-  attempt::stop_if(millesime_obs_artif_gk3, is.null, msg = "millesime_obs_artif_gk3 n'est pas renseign\u00e9")
-  attempt::stop_if_not(millesime_obs_artif_gk3, is.numeric, msg = "millesime_obs_artif n'est pas un nombre")
+  attempt::stop_if(millesime_stock_artif, is.null, msg = "millesime_stock_artif n'est pas renseign\u00e9")
+  attempt::stop_if_not(millesime_stock_artif, is.numeric, msg = "millesime_stock_artif n'est pas un nombre")
   attempt::stop_if(code_reg, is.null, msg = "code_reg n'est pas renseign\u00e9")
   attempt::stop_if_not(code_reg, ~ .x %in% levels(COGiter::regions$REG), msg = "code_reg n'est pas un code r\u00e9gion valide")
 
-  millesime_debut <- millesime_obs_artif_gk3 - 9
+  millesime_debut <- 2016
   if (is.numeric(code_reg)) {
     code_reg = as.character(code_reg)
   }
 
   # Creation de la table utile a la production du graphique
-  data <- observatoire_artificialisation_gk3 %>%
+  data <- stock_artificialise %>%
     dplyr::mutate(date = lubridate::year(.data$date)) %>%
     COGiter::filtrer_cog(reg = code_reg) %>%
     dplyr::filter(.data$TypeZone =="Communes",
-                  .data$date == millesime_obs_artif_gk3 | .data$date == millesime_obs_artif_gk3 - 9) %>%
-    dplyr::select(-.data$surface_naf) %>%
+                  .data$date == millesime_stock_artif | .data$date == millesime_debut) %>%
+    dplyr::select (-.data$surf_cadastree) %>%
     dplyr::arrange(.data$TypeZone, .data$Zone, .data$CodeZone, .data$date) %>%
     dplyr::group_by(.data$TypeZone, .data$Zone, .data$CodeZone) %>%
     dplyr::mutate(valeur = round(.data$surface_artificialisee * 100 / dplyr::lag(.data$surface_artificialisee) - 100, 1)) %>%
     dplyr::ungroup() %>%
-    dplyr::filter(.data$date == millesime_obs_artif_gk3) %>%
+    dplyr::filter(.data$date == millesime_stock_artif) %>%
     dplyr::select(.data$TypeZone, .data$CodeZone, .data$Zone, .data$valeur)
 
   nom_region <- COGiter::regions %>%
@@ -63,9 +63,9 @@ creer_carte_2_8 <- function(millesime_obs_artif_gk3 = NULL,
                                                 bornes = bins,
                                                 decimales = 0,
                                                 palette = "pal_gouv_h",
-                                                titre = glue::glue("Evolution des surfaces artificialis\u00e9es\n entre {millesime_debut} et {millesime_obs_artif_gk3} en %"),
+                                                titre = glue::glue("Evolution des surfaces artificialis\u00e9es\n entre {millesime_debut} et {millesime_stock_artif} en %"),
                                                 sous_titre = NULL,
-                                                bas_de_page = glue::glue("Source : DGFip Majic/Cerema Fichiers fonciers {millesime_obs_artif_gk3}"),
+                                                bas_de_page = glue::glue("Source : DGFip Majic/Cerema Fichiers fonciers {millesime_stock_artif}"),
                                                 suffixe = "%"
   )