ajout de texte et tableau dans le derner paragraphe

diminution de lespace autour des cartes parametrage largeur hauteur des chunks

Closes #30 (closed)

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")