Merge branch '56-remplacer-nom-region-par-region-nom-region' into 'dev'

Resolve "remplacer "nom region" par region "nom region""

Closes #56

See merge request dreal-datalab/propre.artificialisation!49

R/creer_carte_1_3.R

@@ -57,7 +57,7 @@ creer_carte_1_3 <- function(millesime_ocsge,code_reg){
                                                      max_size = 15,
                                                      suffixe = "hectares",
                                                      interactive = FALSE,
-                                                     titre = glue::glue("Etat des espaces artificialis\u00e9s par communes en {nom_region} en {mois} {millesime_ocsge}"),
+                                                     titre = glue::glue("Etat des espaces artificialis\u00e9s par communes en {mois} {millesime_ocsge}"),
                                                      bas_de_page = glue::glue("Source : OCSGE {millesime_ocsge}")
                                                      )
 

R/creer_carte_3_2.R

@@ -95,7 +95,7 @@ creer_carte_3_2 <- function(millesime_etalement_urbain = 2020,
     palette = "pal_gouv_div1",
     inverse = TRUE,
     indicateur = .data$indicateur_etalement_urbain,
-    titre = glue::glue("Etalement urbain en r\u00e9gion ", nom_region,"\npar commune entre 2016 et {millesime_etalement_urbain}"),
+    titre = glue::glue("Etalement urbain par commune entre 2016 et {millesime_etalement_urbain}"),
     bas_de_page = glue::glue("Source : DGFip/Cerema - Insee RP"),
     suffixe = NULL
   ) +

inst/rmarkdown/templates/publication/skeleton/skeleton.Rmd

@@ -14,7 +14,7 @@ params:
   millesime_population: 2019
   millesime_stock_artif: 2020
   code_reg: 52
-title: "L'artificialisation des sols en `r mapfactory::get_nom_reg(params$code_reg)` en `r params$millesime_obs_artif`"
+title: "L'artificialisation des sols en région `r mapfactory::get_nom_reg(params$code_reg)` en `r params$millesime_obs_artif`"
 ---
 
 ```{r setup, include=FALSE}