Merge branch '27-modifications-dans-graphiques-de-la-partie-1' into 'master'

modification sous titre et indications sur graphiques

Closes #27

See merge request !13

R/creer_graphique_evolution_trim.R

@@ -26,8 +26,19 @@ creer_graphique_evolution_trim <- function(data = indic_ecln,
     dplyr::pull(.data$Periode)
 
   max_date <- max(per)
+  num_trimestre <- as.numeric(lubridate::quarter(max_date))
+  rang_trimestre <- if( num_trimestre == 1){
+    "Premier"
+  }else if( num_trimestre == 2){
+    "Deuxième"
+  }else if( num_trimestre == 3){
+    "Troisième"
+  }else{
+    "Quatrième"
+  }
 
-  sous_titre <- glue::glue("Au {label_rang(lubridate::quarter(max_date))} trimestre {lubridate::year(max_date)}")
+  # sous_titre <- glue::glue("Au {label_rang(lubridate::quarter(max_date))} trimestre {lubridate::year(max_date)}")
+  sous_titre <- glue::glue("{rang_trimestre} trimestre {lubridate::year(max_date)}")
   label <- data %>%
     dplyr::filter(
       .data$Zone == zone,
@@ -49,9 +60,13 @@ creer_graphique_evolution_trim <- function(data = indic_ecln,
         format(round(.data$TauxEvolution12Mois, 1), big.mark = " ", decimal.mark = ","),
         " %"
       ),
+      # label = ifelse(.data$TypeIndicateur %in% c("Valeur trimestrielle"),
+      #   FormatCaractere(.data$Periode),
+      #   "Moyenne\nannuelle"
+      # )
       label = ifelse(.data$TypeIndicateur %in% c("Valeur trimestrielle"),
-        FormatCaractere(.data$Periode),
-        "Moyenne\nannuelle"
+                     "Valeur\ntrimestrielle",
+                     "Moyenne\nannuelle"
       )
     )
 

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 91884 lignes et 9 colonnes:
+Table de 91884 lignes et 10 colonnes:
 \describe{
 \item{TypeZone}{Type de territoire}
 \item{CodeZone}{Code du territoire}