diff --git a/R/creer_carte_1_3.R b/R/creer_carte_1_3.R index 6b4f751ae1d0af337595019a0baccdaf62fece14..bfc4d21e220a9a64cf213df8bfccfec396ee1ccf 100644 --- a/R/creer_carte_1_3.R +++ b/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}") ) diff --git a/R/creer_carte_3_2.R b/R/creer_carte_3_2.R index bc4ac140232f7ae4ba14c48bc1150aebb121f705..809625a58f43ef76f3d1e47e34d32180a3dcc26f 100644 --- a/R/creer_carte_3_2.R +++ b/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 ) + diff --git a/inst/rmarkdown/templates/publication/skeleton/skeleton.Rmd b/inst/rmarkdown/templates/publication/skeleton/skeleton.Rmd index aac91978a398921b0da1c2f29ba6cbb9f17a71c8..1e767adf151223d46fcf47140407d6b6207df7cf 100644 --- a/inst/rmarkdown/templates/publication/skeleton/skeleton.Rmd +++ b/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}