diff --git a/NAMESPACE b/NAMESPACE index 94fc2ccb8093432a58a7df2b6b64eca115dade4c..b0068a4452b4cd015db0bbf5043f013683f2a429 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 8eaa88db29636fbd5560437c59493e6e94ffa961..e4774a28e1570f3359b52007a8a3031adc6cb8b6 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 7ce034c3b6436aa59fdfe5757ef554b72eaeedd8..b5371601358b6e29b5d59fe3d40ffa075a568df6 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 5e0a05c300ebf250e08e4f6b761957e98402431a..4635bba261fbfe45b9f924e1708d5ebd5273f172 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 ad618ef0148d3fec4644fb191d29c3c03cf8d3ae..a77bcd107a7dcb2378f74e298f082d712bc9a570 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 4b77153566abd5a262f85b90c6f26b55b7d903be..1f7e5d3a959d063490ce6b89861629b951e628ee 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}