From 00fb0954f7ecbac22c710b91ebb11f7e7d60bfb1 Mon Sep 17 00:00:00 2001
From: Daniel Kalioudjoglou
 <daniel.kalioudjoglou@developpement-durable.gouv.fr>
Date: Fri, 9 Feb 2024 09:44:20 +0100
Subject: [PATCH] ajout topo secret stat en fin de publication

---
 NAMESPACE                                                   | 1 +
 R/creer_tableau_synthese_annuelle.R                         | 5 +++--
 R/creer_tableau_synthese_trimestrielle.R                    | 6 ++++--
 .../templates/ecln_conjoncture/skeleton/skeleton.Rmd        | 3 +--
 man/indic_ecln.Rd                                           | 2 +-
 5 files changed, 10 insertions(+), 7 deletions(-)

diff --git a/NAMESPACE b/NAMESPACE
index 7a97e79..c681383 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 31616e1..954b7a5 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 57c0332..be3226f 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 ef8924d..b33bdc3 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 3a09558..b25a6d1 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}
-- 
GitLab