Resolve "Carte communale Pays de la Loire de l'artificialisation en volume selon OCSGE 2016"

Closes #2 (closed)

R/creer_carte_1_3.R

+#' Creation de la Carte communale Pays de la Loire de l'artificialisation en volume selon OCSGE
+#' @description Carte communale Pays de la Loire de l'artificialisation en volume selon OCSGE
+#'
+#' @param millesime_ocsge une année parmi les millesimes sélectionnables par l'utilisateur, au format numerique.
+#'
+#' @return Une carte
+#'
+#' @importFrom dplyr filter mutate
+#' @importFrom glue glue
+#' @importFrom mapfactory creer_carte_communes_prop fond_carto
+#'
+#' @export
+#'
+#' @examples
+#' creer_carte_1_3(millesime_ocsge=2017)
+
+
+creer_carte_1_3 <- function(millesime_ocsge){
+
+  data <- result %>%
+    dplyr::filter(.data$variable == "espace_artificialise") %>%
+    dplyr::mutate(valeur=round(.data$valeur / 10000,0))
+
+  fond_carto <- mapfactory::fond_carto(nom_reg = "Pays de la Loire")
+
+  carte_1_3 <- mapfactory::creer_carte_communes_prop(data = data,
+                                                     code_region = "52",
+                                                     carto = fond_carto,
+                                                     indicateur = valeur,
+                                                     pourcent = FALSE,
+                                                     decimales=0,
+                                                     max_size = 15,
+                                                     suffixe = "hectares",
+                                                     interactive = FALSE,
+                                                     titre = glue::glue("Espaces artificialis\u00e9 par communes en Pays de la Loire en {millesime_ocsge}"),
+                                                     bas_de_page = glue::glue("Source : OCSGE {millesime_ocsge}")
+                                                     )
+
+
+  return(carte_1_3)
+
+}