Consider column name passed as argument

KWB-R · Sep 5, 2023 · 3642a7b · 3642a7b
1 parent fb57971
commit 3642a7b
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/R/data_aggregation.R b/R/data_aggregation.R
@@ -144,10 +144,13 @@ create_pivot_list <- function(
     selected_lci_method <- lci_methods[i]
 
     processes <- data.frame(
-      lci_method = selected_lci_method,
+      METHOD = selected_lci_method,
       process = unique(kwb.utils::selectColumns(pivot_data, "process")),
       stringsAsFactors = FALSE
-    )
+    ) %>%
+      kwb.utils::renameColumns(list(
+        METHOD = method_col
+      ))
 
     tmp_data <- pivot_data[method_vector == selected_lci_method, ] %>% 
       dplyr::right_join(processes) %>%