diff --git a/NAMESPACE b/NAMESPACE index 7a97e7939b35665d30d6663631c820f5dc84eee9..c6813839b41165df385a93259b2a8c1493317d51 100644 --- a/NAMESPACE +++ b/NAMESPACE @@ -79,6 +79,7 @@ importFrom(gouvdown,theme_gouv_map) importFrom(grid,unit) importFrom(kableExtra,add_header_above) importFrom(kableExtra,add_indent) +importFrom(kableExtra,footnote) importFrom(kableExtra,kable_styling) importFrom(kableExtra,row_spec) importFrom(knitr,kable) diff --git a/R/creer_tableau_synthese_annuelle.R b/R/creer_tableau_synthese_annuelle.R index 31616e146fb7db5a9a62aff8bbd925498d9bd457..954b7a5e0fa6a89ab56300e7b769fafc636d48b2 100644 --- a/R/creer_tableau_synthese_annuelle.R +++ b/R/creer_tableau_synthese_annuelle.R @@ -5,7 +5,7 @@ #' @param type_zone Liste des types de zonage à intégrer dans la facette. #' @return Un table kable #' @importFrom dplyr filter mutate pull select full_join arrange -#' @importFrom kableExtra kable_styling row_spec add_header_above add_indent +#' @importFrom kableExtra kable_styling row_spec add_header_above add_indent footnote #' @importFrom knitr kable #' @importFrom stringr str_split_fixed #' @importFrom tidyr spread @@ -70,7 +70,8 @@ creer_tableau_synthese_annuel <- function(data = indic_ecln, 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_indent(c(3:nombre_zone)) + kableExtra::add_indent(c(3:nombre_zone)) %>% + kableExtra::footnote(general_title="",general = "NA : donn\u00e9es non communiqu\u00e9es (secret statistique)") if ("ABC" %in% type_zone) { res <- res %>% kableExtra::row_spec(nombre_fr_dep_reg:nombre_zone, bold = T, background = "#bebece") diff --git a/R/creer_tableau_synthese_trimestrielle.R b/R/creer_tableau_synthese_trimestrielle.R index 57c03324175f3e1ba2bbc6f8182a82f730604ab6..be3226fe880aa03dbc88722d8fee05efdb5ef087 100644 --- a/R/creer_tableau_synthese_trimestrielle.R +++ b/R/creer_tableau_synthese_trimestrielle.R @@ -6,7 +6,7 @@ #' @return un tableau kable #' @export #' @importFrom dplyr filter mutate select full_join arrange -#' @importFrom kableExtra kable_styling row_spec add_header_above +#' @importFrom kableExtra kable_styling row_spec add_header_above footnote #' @importFrom knitr kable #' @importFrom stringr str_split_fixed #' @importFrom tidyr spread @@ -71,5 +71,7 @@ creer_tableau_synthese_trimestrielle <- function(data = indic_ecln, ) %>% 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 m2" = 2)) %>% + kableExtra::footnote(general_title="",general = "NA : donn\u00e9es non communiqu\u00e9es (secret statistique)") + } diff --git a/inst/rmarkdown/templates/ecln_conjoncture/skeleton/skeleton.Rmd b/inst/rmarkdown/templates/ecln_conjoncture/skeleton/skeleton.Rmd index ef8924d75ad990af9218f8816361f842f3f7f50f..b33bdc3984043ebd355e5599005e5029028705db 100644 --- a/inst/rmarkdown/templates/ecln_conjoncture/skeleton/skeleton.Rmd +++ b/inst/rmarkdown/templates/ecln_conjoncture/skeleton/skeleton.Rmd @@ -54,8 +54,7 @@ caption_carte_maisons <- "Source : ECLN - SDES\nNombre de ventes et de mises en 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_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" -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" +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") diff --git a/man/indic_ecln.Rd b/man/indic_ecln.Rd index 3a095584ef7de95373e076c393f8858aeececd19..b25a6d1f44f7383eb3739875f32c84bf2786c944 100644 --- a/man/indic_ecln.Rd +++ b/man/indic_ecln.Rd @@ -6,7 +6,7 @@ \alias{indic_ecln} \title{Table contenant les différents indicateurs de la source ecln utiles pour la publication.} \format{ -Table de 96720 lignes et 10 colonnes: +Table de 2197156 lignes et 9 colonnes: \describe{ \item{TypeZone}{Type de territoire} \item{CodeZone}{Code du territoire}