changement couleur carte 3-2

DESCRIPTION

@@ -30,7 +30,6 @@ Imports:
     magrittr,
     mapfactory (>= 0.0.0.9000),
     reactable,
-    rmarkdown,
     scales,
     sf,
     stats,
@@ -40,6 +39,7 @@ Imports:
     tricky,
     utils
 Suggests: 
+    rmarkdown,
     testthat (>= 3.0.0)
 VignetteBuilder: 
     knitr

R/creer_carte_3_2.R

@@ -79,8 +79,8 @@ creer_carte_3_2 <- function(millesime_etalement_urbain,
     data = data,
     code_region = code_reg,
     carto = fond_carte,
-    palette = "pal_gouv_div1",
-    inverse = TRUE,
+    palette = "pal_gouv_h",
+    inverse = FALSE,
     indicateur = .data$indicateur_etalement_urbain,
     titre = glue::glue("Etalement urbain par commune entre {millesime_etalement_urbain_debut} et {millesime_etalement_urbain}"),
     bas_de_page = glue::glue("Source : Cerema Fichiers fonciers / Insee RP {millesime_population}"),