Déploiement juin 2024

Mise à Jour des Indicateurs : nouveaux millésimes et passage au COG 2024 Téléchargement Personnalisé : Vous avez maintenant la possibilité de télécharger uniquement un ou plusieurs indicateurs d’une source spécifique à la maille géographique souhaitée.

R/creer_hc_graph_evol.R

@@ -3,32 +3,59 @@
 
 creer_hc_graph_evol <- function(.rv = r){
   
-  if(any(.rv$data_zone$unite %in% c("GWh","ha","hab","km","ktep","kW","kWh/degr\u00e9-jour","m\u00b2","MWh","nombre de visites","teqCO2","tonnes","ugbta", "unite", "uta"))){
+  if(any(
+    .rv$data_zone$unite %in% c("GWh","ha","hab","km","ktep","kW","kWh/degr\u00e9-jour",
+                               "m\u00b2","MWh","nombre de visites","teqCO2","tonnes",
+                               "ugbta", "unite", "uta"))
+    ){
+    precision = "{value:,.0f}"
     tooltip <- "<b>{point.Zone}</b><br/>{point.valeur:,.0f} {point.unite}"
-    title <- glue("{unique(.rv$data_zone$libelle_variable)} entre {min(.rv$data_zone$annee)} et {max(.rv$data_zone$annee)} en {unique(.rv$data_zone$unite)}")
+    title <- glue(
+      "{unique(.rv$data_zone$libelle_variable)} entre {min(.rv$data_zone$annee)} et {max(.rv$data_zone$annee)} en {unique(.rv$data_zone$unite)}"
+      )
      }
   else if (all(.rv$data_zone$unite == "n")) {
+    precision = "{value:,.0f}"
     tooltip <- "<b>{point.Zone}</b><br/>{point.valeur:,.0f}"
-    title <- glue("{unique(.rv$data_zone$libelle_variable)} entre {min(.rv$data_zone$annee)} et {max(.rv$data_zone$annee)}")
+    title <- glue(
+      "{unique(.rv$data_zone$libelle_variable)} entre {min(.rv$data_zone$annee)} et {max(.rv$data_zone$annee)}"
+      )
     }
   else {
-    tooltip <- "<b>{point.Zone}</b><br/>{point.valeur:,.2f} {point.unite}"
-    title <- glue("{unique(.rv$data_zone$libelle_variable)} entre {min(.rv$data_zone$annee)} et {max(.rv$data_zone$annee)} en {unique(.rv$data_zone$unite)}")
+    precision = "{value:,.2f}"
+    tooltip <- "<b>{point.Zone}</b><br/>{point.valeur:,.2f}"
+    title <- glue(
+      "{unique(.rv$data_zone$libelle_variable)} entre {min(.rv$data_zone$annee)} et {max(.rv$data_zone$annee)} en {unique(.rv$data_zone$unite)}"
+      )
   }
   
-  hchart(.rv$data_zone %>% mutate(date = format_fr_date(date)), "line", hcaes(x = date, y = valeur, color = col)) %>%
-    hc_title(text = title, align = "left") %>%
-    # hc_colors(colors = as.vector(vec_col_gouv)) %>%
+  hchart(
+    .rv$data_zone %>% 
+      mutate(
+        date = format_fr_date(date)
+      ),
+    "line", 
+    hcaes(x = date, y = valeur, color = col)
+    ) %>%
+    hc_title(
+      text = title, 
+      align = "left"
+      ) %>%
     hc_colors(color_base) %>%
-    hc_plotOptions(line = list(
-      marker = list(fillColor = color_base))) %>%
+    hc_plotOptions(
+      line = list(marker = list(fillColor = color_base))
+      ) %>%
     hc_exporting(enabled = TRUE) %>%
-    hc_tooltip(pointFormat = tooltip,
-               borderWidth = 2,
-               table = FALSE,
-               borderColor = color_base) %>%
-    hc_yAxis(title = "",
-             labels = list(format = "{value:,.0f}"))
+    hc_tooltip(
+      pointFormat = tooltip,
+      borderWidth = 2,
+      table = FALSE,
+      borderColor = color_base) %>%
+    hc_yAxis(
+      title = "",
+      labels = list(format = precision)
+    )
+  
   }