Correction d'un bug sur la table des objectifs

R/fct_table.R

@@ -68,8 +68,12 @@ prepare_table <- function(ODRE_agg_filtered, label){
   # ODRE_agg_filtered$code_typo <-
   #   ODRE_agg_filtered$code_typo %>% stringr::str_replace_all(filiere_labels_select)
   for (key in names(filiere_labels_select)){
-    ODRE_agg_filtered <- ODRE_agg_filtered %>% mutate(code_typo = case_when(code_typo == key ~ filiere_labels_select[key],
-                                           T ~ code_typo))
+    ODRE_agg_filtered <- ODRE_agg_filtered %>% dplyr::mutate(
+      code_typo = dplyr::case_when(
+        code_typo == key ~ filiere_labels_select[key],
+        T ~ code_typo
+        )
+      )
   }
 
   # select, order and cast columns
@@ -167,24 +171,34 @@ table_options_no_button <- function(nb_elements){
 #' prepare_table_obj(objectifs, sel_region = "R44", sel_filiere = c("pvq"))
 prepare_table_obj <-function(objectifs, sel_region, sel_filiere) {
 
-  for (key in names(filiere_labels_select)){
-    objectifs <- objectifs %>% mutate(code_typo = case_when(code_typo == key ~ filiere_labels_select[key],
-                                                T ~ code_typo))
-  }
 
-  objectifs %>%
+  objectifs <- objectifs %>%
     dplyr::filter(.data$code_typo %in% sel_filiere,
                   paste0("R", .data$CodeZone) == sel_region) %>%
     dplyr::select(
       Année = .data$annee,
       Énergie = .data$code_typo,
-      'Production cible SRADDET (GWh)' = valeur,
+      'Production cible SRADDET (GWh)' = .data$valeur,
       Zone = .data$CodeZone
     ) %>%
     dplyr::mutate(
+      Énergie = factor(.data$Énergie),
       Zone = stringr::str_replace_all(paste0("R", .data$Zone), region_names),
       Année = factor(.data$Année)
     )
+
+  for (key in names(filiere_labels_select)){
+    objectifs <- objectifs %>%
+      mutate(
+        Énergie = case_when(
+          .data$Énergie == key ~ filiere_labels_select[key],
+          T ~ .data$Énergie
+        )
+      )
+
+  }
+  print(objectifs)
+  return(objectifs)
 }
 
 

data-raw/pipeline/3_donnee_tab_accueil.R

@@ -14,8 +14,10 @@ dta <- registre_ODRE_complet %>%
 # On n'utilise pas str_replace_all pour éviter de remplacer iterativement des valeurs au sein d'un string
 dta$Type <- NA
 for (key in names(filiere_labels_select)){
-  dta <- dta %>% mutate(Type = case_when(code_typo == key ~ filiere_labels_select[key],
-                                         T ~ Type))
+  dta <- dta %>% mutate(Type = case_when(
+    code_typo == key ~ filiere_labels_select[key],
+    T ~ Type
+    ))
 }