parametrage du titre et sous titre

modification dans le pied de page
correction nombre de facets dans un graphique

R/creer_graphique_series_temporelles.R

@@ -23,7 +23,7 @@ creer_graphique_series_temporelles <- function(data = indic_ecln,
                                                titre = "",
                                                bas_de_page = "",
                                                type_facet = "classique",
-                                               ncol_facet = 4) {
+                                               ncol_facet = 3) {
   indic <- paste0(indicateurs, " - ", type_logement)
   p <- data %>%
     dplyr::filter(

inst/rmarkdown/templates/ecln_conjoncture/skeleton/footer.html

@@ -14,7 +14,7 @@
 
 <div class="col-md-6">
 
-<p style="text-align: left;">Direction régionale de l’environnement de l’aménagement et du logement</p>
+<p style="text-align: left;">Direction régionale de l’environnement, de l’aménagement et du logement</p>
 
 <p style="text-align: left;">Service connaissance des territoires et évaluation </p>
 
@@ -26,6 +26,8 @@
 
 <p style="text-align: left;">Tél. 02 72 74 73 00</p>
 
+<p style="text-align: left;">mail: statistiques.dreal-pdl@developpement-durable.gouv.fr</p>
+
 <p style="text-align: left;">Directrice de la publication : Anne Beauval</p>
 
 <p style="text-align: left;">ISSN : 2109-0025</p>

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

 ---
-title: "Commercialisation des logements neufs"
-author: "XXXX - Dreal XXX - xxx@developpement-durable.gouv.fr"
+params:
+  region: "52"
+  annee: "2023"
+  trimestre: "3"
+  abc: FALSE
+title: "La commercialisation des logements neufs en `r mapfactory::get_nom_reg(params$region)`"
+subtitle: <h1>`r params$trimestre``r ifelse(params$trimestre == "1","<sup>er</sup>","<sup>e</sup>")` trimestre de `r params$annee`</h1>
+author: "Denis Douillard - Dreal Pays de la Loire"
 date: "`r Sys.Date()`"
 output: 
   gouvdown::html_gouv:
@@ -8,9 +14,6 @@ output:
     logo: "prefecture_r52"
     include:
       after_body: footer.html
-params:
-  region: "52"
-  abc: FALSE
 editor_options: 
   chunk_output_type: console
   markdown: 

man/creer_graphique_series_temporelles.Rd

@@ -12,7 +12,7 @@ creer_graphique_series_temporelles(
   titre = "",
   bas_de_page = "",
   type_facet = "classique",
-  ncol_facet = 4
+  ncol_facet = 3
 )
 }
 \arguments{