From cbc4f2bc4e38d5ee2b7bae72775af545ee964f83 Mon Sep 17 00:00:00 2001
From: Denis DOUILLARD <denis.douillard@developpement-durable.gouv.fr>
Date: Tue, 10 Dec 2024 15:51:42 +0100
Subject: [PATCH] Second changement

---
 NAMESPACE                                        | 16 ----------------
 R/creer_chiffres_clefs.R                         | 16 ++++++++--------
 devstuff.R                                       |  2 +-
 .../ecln_conjoncture/skeleton/skeleton.Rmd       |  2 +-
 man/en_trimestre.Rd                              |  4 ++--
 man/indic_ecln.Rd                                |  2 +-
 6 files changed, 13 insertions(+), 29 deletions(-)

diff --git a/NAMESPACE b/NAMESPACE
index 94fc2cc..b0068a4 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -1,21 +1,5 @@
 # Generated by roxygen2: do not edit by hand
 
-export("%>%")
-export(FormatCaractere)
-export(FormatDate)
-export(creer_carte_evolution)
-export(creer_carte_volume)
-export(creer_carte_volume2)
-export(creer_chiffres_clefs_ecln)
-export(creer_graphique_evolution_annuelle)
-export(creer_graphique_evolution_trim)
-export(creer_graphique_investissement_locatif)
-export(creer_graphique_series_temporelles)
-export(creer_graphique_series_temporelles_prix)
-export(creer_tableau_synthese_annuel)
-export(creer_tableau_synthese_trimestrielle)
-export(data_prep)
-export(set_theme)
 importFrom(COGiter,filtrer_cog)
 importFrom(COGiter,filtrer_cog_geo)
 importFrom(COGiter,list_epci_in_reg)
diff --git a/R/creer_chiffres_clefs.R b/R/creer_chiffres_clefs.R
index 8eaa88d..e4774a2 100644
--- a/R/creer_chiffres_clefs.R
+++ b/R/creer_chiffres_clefs.R
@@ -1,4 +1,4 @@
-#' Converti une date en trimestre
+#' Convertit une date en trimestre
 #'
 #' @param date une date
 #'
@@ -7,10 +7,10 @@
 #' @importFrom lubridate month year
 en_trimestre <- function(date) {
   trim <- dplyr::case_when(
-    lubridate::month(date) <= 3 ~ "1<sup>er</sup>",
-    lubridate::month(date) <= 6 ~ "2<sup>\u00e8me</sup>",
-    lubridate::month(date) <= 9 ~ "3<sup>\u00e8me</sup>",
-    lubridate::month(date) <= 12 ~ "4<sup>\u00e8me</sup>"
+    lubridate::month(date) <= 3 ~ "premier",
+    lubridate::month(date) <= 6 ~ "deuxi\u00E8me",
+    lubridate::month(date) <= 9 ~ "troisi\u00E8me",
+    lubridate::month(date) <= 12 ~ "quatri\u00E8me"
   )
   return(
     paste(trim, "trimestre de", lubridate::year(date))
@@ -27,9 +27,9 @@ en_trimestre <- function(date) {
 en_trimestre_moins_un <- function(date) {
   trim <- dplyr::case_when(
     lubridate::month(date) <= 3 ~ "1<sup>er</sup>",
-    lubridate::month(date) <= 6 ~ "2<sup>\u00e8me</sup>",
-    lubridate::month(date) <= 9 ~ "3<sup>\u00e8me</sup>",
-    lubridate::month(date) <= 12 ~ "4<sup>\u00e8me</sup>"
+    lubridate::month(date) <= 6 ~ "2<sup>e</sup>",
+    lubridate::month(date) <= 9 ~ "3<sup>e</sup>",
+    lubridate::month(date) <= 12 ~ "4<sup>e</sup>"
   )
   return(
     paste(trim, "trimestre de", lubridate::year(date)-1)
diff --git a/devstuff.R b/devstuff.R
index 7ce034c..b537160 100644
--- a/devstuff.R
+++ b/devstuff.R
@@ -25,4 +25,4 @@ usethis::use_package('tidyr')
 usethis::use_r("tableau_synthese_trimestrielle")
 
 attachment::att_amend_desc()
-yusethis::use_r("globals.R")
+usethis::use_r("globals.R")
diff --git a/inst/rmarkdown/templates/ecln_conjoncture/skeleton/skeleton.Rmd b/inst/rmarkdown/templates/ecln_conjoncture/skeleton/skeleton.Rmd
index 5e0a05c..4635bba 100644
--- a/inst/rmarkdown/templates/ecln_conjoncture/skeleton/skeleton.Rmd
+++ b/inst/rmarkdown/templates/ecln_conjoncture/skeleton/skeleton.Rmd
@@ -2,7 +2,7 @@
 params:
   region: "52"
   annee: "2024"
-  trimestre: "2"
+  trimestre: "3"
   abc: FALSE
 # title: "La commercialisation<br>des logements neufs<br>dans les `r mapfactory::get_nom_reg(params$region)`"
 # subtitle: <h2>`r params$trimestre``r ifelse(params$trimestre == "1","<sup>er</sup>","<sup>e</sup>")` trimestre de `r params$annee` - Titre informatif qui peut tenir sur plusieurs lignes (par exemple Les ventes sont les plus basses depuis au moins sept ans) </h2>
diff --git a/man/en_trimestre.Rd b/man/en_trimestre.Rd
index ad618ef..a77bcd1 100644
--- a/man/en_trimestre.Rd
+++ b/man/en_trimestre.Rd
@@ -2,7 +2,7 @@
 % Please edit documentation in R/creer_chiffres_clefs.R
 \name{en_trimestre}
 \alias{en_trimestre}
-\title{Converti une date en trimestre}
+\title{Convertit une date en trimestre}
 \usage{
 en_trimestre(date)
 }
@@ -13,5 +13,5 @@ en_trimestre(date)
 une chaine de caractère
 }
 \description{
-Converti une date en trimestre
+Convertit une date en trimestre
 }
diff --git a/man/indic_ecln.Rd b/man/indic_ecln.Rd
index 4b77153..1f7e5d3 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 2535180 lignes et 9 colonnes:
+Table de 2619686 lignes et 9 colonnes:
 \describe{
 \item{TypeZone}{Type de territoire}
 \item{CodeZone}{Code du territoire}
-- 
GitLab