correction des label dans les table pour cogeneration electrique

R/fct_table.R

@@ -65,8 +65,12 @@ filter_odre_agg <- function(registre_ODRE_agg, sel_epci, sel_filiere, var, var_3
 prepare_table <- function(ODRE_agg_filtered, label){
 
   #affichage nom complets
-  ODRE_agg_filtered$code_typo <-
-    ODRE_agg_filtered$code_typo %>% stringr::str_replace_all(filiere_labels_select)
+  # 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))
+  }
 
   # select, order and cast columns
   table <- ODRE_agg_filtered %>%
@@ -162,6 +166,12 @@ table_options_no_button <- function(nb_elements){
 #' @examples
 #' 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 %>%
     dplyr::filter(.data$code_typo %in% sel_filiere,
                   paste0("R", .data$CodeZone) == sel_region) %>%
@@ -172,7 +182,6 @@ prepare_table_obj <-function(objectifs, sel_region, sel_filiere) {
       Zone = .data$CodeZone
     ) %>%
     dplyr::mutate(
-      Énergie = factor(stringr::str_replace_all(.data$Énergie, filiere_labels_select)),
       Zone = stringr::str_replace_all(paste0("R", .data$Zone), region_names),
       Année = factor(.data$Année)
     )