modification carte 2_2 et mise a jour des donnes avec cog a jour

R/creer_carte_2_2.R

@@ -75,7 +75,7 @@ creer_carte_2_2 <- function(millesime_obs_artif) {
     # ggplot2::scale_size_area(name="")+
     ggplot2::scale_size_continuous(range = c(0, 20), labels = function(x) format_fr(x, dec = 0)) +
     ggplot2::labs(
-      title = glue::glue("Nouvelles surfaces consomm\u00e9es entre {millesime_debut} et {millesime_fin} (10 ans)"),
+      title = glue::glue("Nouvelles surfaces consomm\u00e9es entre le 1/1/{millesime_debut} et le 1/1/{millesime_obs_artif}"),
       subtitle = "",
       y = "",
       x = "",