diff --git a/R/creer_graphique_evolution_annuelle.R b/R/creer_graphique_evolution_annuelle.R
index 6137d6d68ffd1eddde1f371f0283854f73df84b7..1bc427ef55e36fd85e1178ce4a8e86fcd6fe5b2e 100644
--- a/R/creer_graphique_evolution_annuelle.R
+++ b/R/creer_graphique_evolution_annuelle.R
@@ -72,14 +72,14 @@ creer_graphique_evolution_annuelle <- function(data = indic_ecln,
position = position_dodge(0.9),
color = "white",
fill = "grey",
- alpha = .2,
+ alpha = 0.2,
fontface = "bold",
hjust = 1.2
) +
ggplot2::scale_y_continuous(labels = scales::format_format(big.mark = " ")) +
gouvdown::scale_fill_gouv_discrete(palette = "pal_gouv_qual2") +
ggplot2::labs(
- title = titre, subtitle = "R\u00e9alis\u00e9es sur les 12 derniers mois", x = "Trimestre", y = "",
+ title = titre, subtitle = "r\u00e9alis\u00e9es sur les 12 derniers mois", x = "Trimestre", y = "",
caption = bas_de_page, fill = ""
)
if (type_facet == "classique") {
diff --git a/R/creer_graphique_series_temporelles_prix.R b/R/creer_graphique_series_temporelles_prix.R
index d3b3f3726e871c9fb6d3df9186b756c7a09d0531..15d6e4657290c9e5c1044ef4718501502cd25064 100644
--- a/R/creer_graphique_series_temporelles_prix.R
+++ b/R/creer_graphique_series_temporelles_prix.R
@@ -56,13 +56,13 @@ creer_graphique_series_temporelles_prix <- function(data = indic_ecln,
)
) +
ggplot2::geom_line(size = 1.2) +
- ggplot2::geom_point(data = data %>%
- dplyr::filter(
- .data$Indicateur %in% indic,
- .data$TypeIndicateur == type_indicateur,
- .data$TypeZone %in% type_zone,
- .data$Periode == max(.data$Periode)
- )) +
+ # ggplot2::geom_point(data = data %>%
+ # dplyr::filter(
+ # .data$Indicateur %in% indic,
+ # .data$TypeIndicateur == type_indicateur,
+ # .data$TypeZone %in% type_zone,
+ # .data$Periode == max(.data$Periode)
+ # )) +
ggplot2::theme(legend.position = "none",
axis.line = element_line(colour = "black",
size = 0.5, linetype = "solid")) +
diff --git a/R/creer_tableau_synthese_annuelle.R b/R/creer_tableau_synthese_annuelle.R
index 79e9280d2bbbe567d3c9b5f8cf853fbf1ec0c9eb..010cebbf91ed56943714f49a948a6b7e85faa053 100644
--- a/R/creer_tableau_synthese_annuelle.R
+++ b/R/creer_tableau_synthese_annuelle.R
@@ -60,17 +60,17 @@ creer_tableau_synthese_annuel <- function(data = indic_ecln,
dplyr::select(2, 6, 10, 4, 8, 3, 7, 5, 9) %>%
knitr::kable("html",
col.names = c(
- "Zone", "Sur les 12 derniers mois", "Evolution sur un an (en %)",
- "Sur les 12 derniers mois", "Evolution sur un an (en %)",
- "En fin de p\u00e9riode", "Evolution sur un an (en %)",
- "Prix moyen sur les 12 derniers mois (en \u20ac)", "Evolution sur un an (en %)"
+ "Zone", "Sur les 12 derniers mois", "\u00C9volution sur un an (en %)",
+ "Au cours des 12 derniers mois", "\u00C9volution sur un an (en %)",
+ "En fin de p\u00e9riode", "\u00C9volution sur un an (en %)",
+ "Prix moyen sur les 12 derniers mois (en \u20ac)", "\u00C9volution sur un an (en %)"
),
digits = c(0, 0, 1, 0, 1, 0, 1, 0, 1),
format.args = list(big.mark = " ", decimal.mark = ",")
) %>%
kableExtra::kable_styling(font_size = 12) %>%
kableExtra::row_spec(1:2, bold = T, background = "#f0f0f5") %>%
- kableExtra::add_header_above(c(" " = 1, "Ventes" = 2, "Mises en vente" = 2, "Encours" = 2, "Prix au m2" = 2)) %>%
+ kableExtra::add_header_above(c(" " = 1, "Ventes" = 2, "Mises en vente" = 2, "Encours" = 2, "Prix au m\u00B2" = 2)) %>%
kableExtra::add_indent(c(3:nombre_zone)) %>%
kableExtra::footnote(general_title="",general = "NC : donn\u00e9es non communiqu\u00e9es (secret statistique)")
if ("ABC" %in% type_zone) {
diff --git a/R/creer_tableau_synthese_trimestrielle.R b/R/creer_tableau_synthese_trimestrielle.R
index c8da32807a9fd30deaa7536c9ce10d8eec6a8100..7451832a1e339fa5b344e884a4b8bfd7ee64f04e 100644
--- a/R/creer_tableau_synthese_trimestrielle.R
+++ b/R/creer_tableau_synthese_trimestrielle.R
@@ -62,17 +62,17 @@ creer_tableau_synthese_trimestrielle <- function(data = indic_ecln,
dplyr::select(2, 6, 10, 4, 8, 3, 7, 5, 9)%>%
knitr::kable("html",
col.names = c(
- "Zone", "Sur le dernier trimestre", "Evolution sur un an (en %)",
- "Sur le dernier trimestre", "Evolution sur un an (en %)",
- "En fin de p\u00e9riode", "Evolution sur un an (en %)",
- "Prix moyen sur le dernier trimestre (en \u20ac)", "Evolution sur un an (en %)"
+ "Zone", "Sur le dernier trimestre", "\u00C9volution sur un an (en %)",
+ "Au cours du dernier trimestre", "\u00C9volution sur un an (en %)",
+ "En fin de p\u00e9riode", "\u00C9volution sur un an (en %)",
+ "Prix moyen sur le dernier trimestre (en \u20ac)", "\u00C9volution sur un an (en %)"
),
digits = c(0, 0, 1, 0, 1, 0, 1, 0, 1),
format.args = list(big.mark = " ", decimal.mark = ",")
) %>%
kableExtra::kable_styling(font_size = 12) %>%
kableExtra::row_spec(1:2, bold = T, background = "#f0f0f5") %>%
- kableExtra::add_header_above(c(" " = 1, "Ventes" = 2, "Mises en vente" = 2, "Encours" = 2, "Prix au m2" = 2)) %>%
+ kableExtra::add_header_above(c(" " = 1, "Ventes" = 2, "Mises en vente" = 2, "Encours" = 2, "Prix au m\u00B2" = 2)) %>%
kableExtra::footnote(general_title="",general = "NC : donn\u00e9es non communiqu\u00e9es (secret statistique)")
}
diff --git a/dev/config_attachment.yaml b/dev/config_attachment.yaml
deleted file mode 100644
index 46e24ecc2173ddbd6d930225a01bb92e508508d5..0000000000000000000000000000000000000000
--- a/dev/config_attachment.yaml
+++ /dev/null
@@ -1,12 +0,0 @@
-path.n: NAMESPACE
-path.d: DESCRIPTION
-dir.r: R
-dir.v: vignettes
-dir.t: tests
-extra.suggests: ~
-pkg_ignore: ~
-document: yes
-normalize: yes
-inside_rmd: no
-must.exist: yes
-check_if_suggests_is_installed: yes
diff --git a/inst/rmarkdown/templates/ecln_conjoncture/skeleton/footer.html b/inst/rmarkdown/templates/ecln_conjoncture/skeleton/footer.html
index 089ffd8f414c0ce9ad0a6a4a9dc2dfa71712d6c2..22e5472ca61434afe74071d22766255411e0877c 100644
--- a/inst/rmarkdown/templates/ecln_conjoncture/skeleton/footer.html
+++ b/inst/rmarkdown/templates/ecln_conjoncture/skeleton/footer.html
@@ -18,7 +18,7 @@
<p style="text-align: left;">Service connaissance des territoires et évaluation </p>
-<p style="text-align: left;">Centre de Service de la Donnée</p>
+<p style="text-align: left;">Centre de service de la donnée</p>
<p style="text-align: left;">5 rue Françoise Giroud - CS16326</p>
diff --git a/inst/rmarkdown/templates/ecln_conjoncture/skeleton/skeleton.Rmd b/inst/rmarkdown/templates/ecln_conjoncture/skeleton/skeleton.Rmd
index dd36a64c1a2b3205f4233c0d29dfb44f607d24dc..01b262b5d6475589118861f0f5c8afc7d5325a2c 100644
--- a/inst/rmarkdown/templates/ecln_conjoncture/skeleton/skeleton.Rmd
+++ b/inst/rmarkdown/templates/ecln_conjoncture/skeleton/skeleton.Rmd
@@ -50,15 +50,15 @@ mygrid <- data.frame(
if (!params$abc) {
mygrid <- mygrid %>% dplyr::filter(!(code %in% c("Zone C", "Zone B1", "Zone B2")))
}
-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 <- "Source : ECLN - SDES\nNombre de ventes et de mises en vente \n sur les 12 derniers mois\nEncours en fin de période"
+caption_appartements <- "Source : ECLN - SDES\nNombre de ventes et de mises en vente d'appartements \n sur les 12 derniers mois\nEncours en fin de période"
+caption_maisons <- "Source : ECLN - SDES\nNombre de ventes et de mises en vente 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_appartements2 <- "Source : ECLN - SDES\n\u00C9volution 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"
+caption_carte_maisons2 <- "Source : ECLN - SDES\n\u00C9volution 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"
caption_carte_logements <- "Source : ECLN - SDES\nNombre de ventes et de mises en vente de logements au cours des 12 derniers mois\nEncours en fin de période"
-caption_carte_logements2 <- "Source : ECLN - SDES\nEvolution des ventes et des mises en vente de logements par rapport aux 12 mois pr\u00e9cedents\n\u00C9volution de l'encours des logements par rapport au m\u00EAme trimestre de l'ann\u00e9e pr\u00e9c\u00e9dente"
+caption_carte_logements2 <- "Source : ECLN - SDES\n\u00C9volution des ventes et des mises en vente de logements par rapport aux 12 mois pr\u00e9cedents\n\u00C9volution de l'encours des logements 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\nDonn\u00e9es manquantes en raison du secret statistique : voir 'A propos'"
typezone <- c("France", "R\u00e9gions", "D\u00e9partements")
@@ -128,7 +128,7 @@ creer_tableau_synthese_annuel(
creer_graphique_evolution_annuelle(
type_logement = "logement",
type_zone = typezone,
- titre = "Evolution des ventes et mises en vente de logements neufs",
+ titre = "\u00C9volution des ventes et des mises en vente de logements neufs",
bas_de_page = caption,
type_facet = "classique"
)
@@ -141,7 +141,7 @@ options(scipen = 999)
creer_graphique_series_temporelles(
type_logement = "Logements",
type_zone = typezone,
- titre = "Evolution des ventes et mises en vente de logements neufs sur 12 mois glissants",
+ titre = "\u00C9volution des ventes et des mises en vente de logements neufs sur 12 mois glissants",
bas_de_page = caption,
type_facet = "classique"
)
@@ -153,7 +153,7 @@ creer_graphique_series_temporelles(
creer_graphique_series_temporelles_prix(
type_logement = "Logements",
type_zone = typezone,
- titre = "Evolution du prix au m2 moyen des logements neufs en euros sur 12 mois glissants",
+ titre = "\u00C9volution du prix au m\u00B2 moyen des logements neufs en euros sur 12 mois glissants",
bas_de_page = captionprix,
type_facet = "classique"
)
@@ -167,7 +167,7 @@ creer_carte_volume2(data=indic_ecln,
indicateurs = c("Encours","Mises en vente","Ventes"),
type_logement="Logements",
type_indicateur="Cumul annuel",
- titre="Volumes de ventes, mises en vente et encours de logements",
+ titre="Les valeurs absolues",
titre_legende="",
bas_de_page=caption_carte_logements)
```
@@ -178,7 +178,7 @@ creer_carte_evolution(data=indic_ecln,
indicateurs = c("Encours","Mises en vente","Ventes"),
type_logement="Logements",
type_indicateur="Cumul annuel",
- titre="Evolution des ventes, mises en vente et encours de logements",
+ titre="Les \u00E9volutions",
titre_legende="",
bas_de_page=caption_carte_logements2)
```
@@ -246,7 +246,7 @@ options(scipen = 999)
creer_graphique_evolution_annuelle(
type_logement = "collectif",
type_zone = typezone,
- titre = "Evolution des ventes et mises en vente d'appartements neufs",
+ titre = "\u00C9volution des ventes et des mises en vente d'appartements neufs",
bas_de_page = caption,
type_facet = "classique"
)
@@ -258,7 +258,7 @@ creer_graphique_evolution_annuelle(
creer_graphique_series_temporelles(
type_logement = "Appartements",
type_zone = typezone,
- titre = "Evolution des ventes et mises en vente d'appartements neufs sur 12 mois glissants",
+ titre = "\u00C9volution des ventes et des mises en vente d'appartements neufs sur 12 mois glissants",
bas_de_page = caption,
type_facet = "classique"
)
@@ -270,7 +270,7 @@ creer_graphique_series_temporelles(
creer_graphique_series_temporelles_prix(
type_logement = "Appartements",
type_zone = typezone,
- titre = "Evolution du prix au m2 moyen des appartements neufs en euros sur 12 mois glissants",
+ titre = "\u00C9volution du prix au m\u00B2 moyen des appartements neufs en euros sur 12 mois glissants",
bas_de_page = captionprix,
type_facet = "classique"
)
@@ -284,7 +284,7 @@ creer_carte_volume2(data=indic_ecln,
indicateurs = c("Encours","Mises en vente","Ventes"),
type_logement="Appartements",
type_indicateur="Cumul annuel",
- titre="Volumes de ventes, mises en vente et encours d'appartements",
+ titre="Les valeurs absolues",
titre_legende="",
bas_de_page=caption_carte_appartements)
```
@@ -296,7 +296,7 @@ creer_carte_evolution(data=indic_ecln,
indicateurs = c("Encours","Mises en vente","Ventes"),
type_logement="Appartements",
type_indicateur="Cumul annuel",
- titre="Evolution des ventes, mises en vente et encours d'appartements",
+ titre="Les \u00E9volutions",
titre_legende="",
bas_de_page=caption_carte_appartements2)
```
@@ -364,7 +364,7 @@ creer_tableau_synthese_annuel(
creer_graphique_evolution_annuelle(
type_logement = "individuel",
type_zone = typezone,
- titre = "Evolution des ventes et mises en vente de maisons neuves",
+ titre = "\u00C9volution des ventes et des mises en vente de maisons neuves",
bas_de_page = caption,
type_facet = "classique"
)
@@ -377,7 +377,7 @@ options(scipen = 999)
creer_graphique_series_temporelles(
type_logement = "Maisons",
type_zone = typezone,
- titre = "Evolution des ventes et mises en vente de maisons neuves sur 12 mois glissants",
+ titre = "\u00C9volution des ventes et des mises en vente de maisons neuves sur 12 mois glissants",
bas_de_page = caption,
type_facet = "classique"
)
@@ -389,7 +389,7 @@ creer_graphique_series_temporelles(
creer_graphique_series_temporelles_prix(
type_logement = "Maisons",
type_zone = typezone,
- titre = "Evolution du prix au m2 moyen des maisons neuves en euros sur 12 mois glissants",
+ titre = "\u00C9volution du prix au m\u00B2 moyen des maisons neuves en euros sur 12 mois glissants",
bas_de_page = captionprix,
type_facet = "classique"
)
@@ -403,7 +403,7 @@ creer_carte_volume2(data=indic_ecln,
indicateurs = c("Encours","Mises en vente","Ventes"),
type_logement="Maisons",
type_indicateur="Cumul annuel",
- titre="Volumes de ventes, mises en vente et encours de maisons",
+ titre="Les valeurs absolues",
titre_legende="",
bas_de_page=caption_carte_maisons)
```
@@ -415,7 +415,7 @@ creer_carte_evolution(data=indic_ecln,
indicateurs = c("Encours","Mises en vente","Ventes"),
type_logement="Maisons",
type_indicateur="Cumul annuel",
- titre="Evolution des ventes, mises en vente et encours de maisons",
+ titre="Les \u00E9volutions",
titre_legende="",
bas_de_page=caption_carte_maisons2)
```