mis source ECLN - SDES sur tous les tableaux et cartes

R/creer_graphique_evolution_trim.R

@@ -111,7 +111,7 @@ creer_graphique_evolution_trim <- function(data = indic_ecln,
       y = "Nombre de ventes",
       title = titre,
       subtitle = sous_titre,
-      caption = "Source : ECLN\nMoyenne annuelle : Valeur observ\u00e9e en moyenne sur les 4 derniers trimestres"
+      caption = "Source : ECLN - SDES\nMoyenne annuelle : Valeur observ\u00e9e en moyenne sur les 4 derniers trimestres"
     ) +
     ggplot2::theme(plot.caption = element_text(size = 10))+
     ggplot2::guides(fill = F) +

inst/rmarkdown/templates/ecln_conjoncture/skeleton/skeleton.Rmd

@@ -39,15 +39,15 @@ mygrid <- data.frame(
 if (!params$abc) {
   mygrid <- mygrid %>% dplyr::filter(!(code %in% c("Zone C", "Zone B1", "Zone B2")))
 }
-caption <- "Source : ECLN \nCalculs : DREAL Pays de la Loire\nNombre de ventes et mises en ventes \n sur les 12 derniers mois\nEncours en fin de période"
-caption_appartements <- "Source : ECLN \nCalculs : DREAL Pays de la Loire\nNombre de ventes et mises en ventes d'appartements \n sur les 12 derniers mois\nEncours en fin de période"
-caption_maisons <- "Source : ECLN \nCalculs : DREAL Pays de la Loire\nNombre de ventes et mises en ventes de maisons \n sur les 12 derniers mois\nEncours en fin de période \n Les résultats de la Mayenne et de la Sarthe sont soumis au secret statistique"
-caption_carte_appartements <- "Source : ECLN \nCalculs : DREAL Pays de la Loire\nNombre de ventes et de mises en vente d'appartements au cours des 12 derniers mois\nEncours en fin de période"
-caption_carte_appartements2 <- "Source : ECLN \nCalculs : DREAL Pays de la Loire\nEvolution des ventes et des mises en vente d'appartements par rapport aux 12 mois pr\u00e9cedents\n\u00C9volution de l'encours des appartements par rapport au m\u00EAme trimestre de l'ann\u00e9e pr\u00e9c\u00e9dente"
-caption_carte_maisons <- "Source : ECLN \nCalculs : DREAL Pays de la Loire\nNombre de ventes et de mises en vente de maisons au cours des 12 derniers mois\nEncours en fin de période"
-caption_carte_maisons2 <- "Source : ECLN \nCalculs : DREAL Pays de la Loire\nEvolution des ventes et des mises en vente de maisons par rapport aux 12 mois pr\u00e9cedents\n\u00C9volution de l'encours des appartements par rapport au m\u00EAme trimestre de l'ann\u00e9e pr\u00e9c\u00e9dente"
-captionprix <- "Source : ECLN \nCalculs : DREAL Pays de la Loire\nPrix moyen observé sur les 12 derniers mois"
-captionprix_maisons <- "Source : ECLN \nCalculs : DREAL Pays de la Loire\nPrix moyen observé sur les 12 derniers mois \nLes résultats de la Mayenne et de la zone C sont sous le seuil du secret statistique"
+caption <- "Source : ECLN - SDES\nNombre de ventes et mises en ventes \n sur les 12 derniers mois\nEncours en fin de période"
+caption_appartements <- "Source : ECLN - SDES\nNombre de ventes et mises en ventes d'appartements \n sur les 12 derniers mois\nEncours en fin de période"
+caption_maisons <- "Source : ECLN - SDES\nNombre de ventes et mises en ventes de maisons \n sur les 12 derniers mois\nEncours en fin de période \n Les résultats de la Mayenne et de la Sarthe sont soumis au secret statistique"
+caption_carte_appartements <- "Source : ECLN - SDES\nNombre de ventes et de mises en vente d'appartements au cours des 12 derniers mois\nEncours en fin de période"
+caption_carte_appartements2 <- "Source : ECLN - SDES\nEvolution des ventes et des mises en vente d'appartements par rapport aux 12 mois pr\u00e9cedents\n\u00C9volution de l'encours des appartements par rapport au m\u00EAme trimestre de l'ann\u00e9e pr\u00e9c\u00e9dente"
+caption_carte_maisons <- "Source : ECLN - SDES\nNombre de ventes et de mises en vente de maisons au cours des 12 derniers mois\nEncours en fin de période"
+caption_carte_maisons2 <- "Source : ECLN - SDES\nEvolution des ventes et des mises en vente de maisons par rapport aux 12 mois pr\u00e9cedents\n\u00C9volution de l'encours des appartements par rapport au m\u00EAme trimestre de l'ann\u00e9e pr\u00e9c\u00e9dente"
+captionprix <- "Source : ECLN - SDES\nPrix moyen observé sur les 12 derniers mois"
+captionprix_maisons <- "Source : ECLN - SDES\nPrix moyen observé sur les 12 derniers mois \nLes résultats de la Mayenne et de la zone C sont sous le seuil du secret statistique"
 
 typezone <- c("France", "R\u00e9gions", "D\u00e9partements")