creation du graphique

ajout tableau et modification erreurs de millesimes dans autres cartes

Closes #33 (closed)

R/creer_carte_1_3.R

@@ -5,21 +5,24 @@
 #'
 #' @return Une carte
 #'
-#' @importFrom dplyr filter mutate
+#' @importFrom dplyr filter mutate select
 #' @importFrom glue glue
 #' @importFrom mapfactory creer_carte_communes_prop fond_carto
 #'
 #' @export
 #'
 #' @examples
-#' creer_carte_1_3(millesime_ocsge=2017)
+#' creer_carte_1_3(millesime_ocsge=2016)
 
 
 creer_carte_1_3 <- function(millesime_ocsge){
 
-  data <- result %>%
-    dplyr::filter(.data$variable == "espace_artificialise") %>%
-    dplyr::mutate(valeur=round(.data$valeur / 10000,0))
+  data <- ocsge %>%
+    dplyr::filter(grepl(millesime_ocsge, .data$date)) %>%
+    dplyr::select(.data$TypeZone,.data$Zone,.data$CodeZone,.data$date,.data$espace_artificialise) %>%
+    dplyr::mutate(valeur=round(.data$espace_artificialise / 10000,0)) %>%
+    dplyr::select(-.data$espace_artificialise)
+
 
   fond_carto <- mapfactory::fond_carto(nom_reg = "Pays de la Loire")