fix policyCosts reporting after remind2 PR#465

remindmodel · Mar 7, 2024 · 4a2d421 · 4a2d421
1 parent e6d47b6
commit 4a2d421
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/scripts/output/comparison/policyCosts.R b/scripts/output/comparison/policyCosts.R
@@ -297,21 +297,21 @@ if (!"3" %in% special_requests) {
 
   tmp_policy_costs <- tmp_policy_costs_magpie %>%
     lapply(quitte::as.quitte) %>%
-    lapply(select, region, period, data, value)
+    lapply(select, "region", "period", "variable", "value")
 
   # Combine results in single tibble, with names like "Pol_w.r.t_Ref"
   policy_costs <- rename(tmp_policy_costs[[1]], !!sym(paste0(pol_names[1], "_w.r.t_",ref_names[1])):=value)
   if (length(tmp_policy_costs) > 1) {
     for (i in 2:length(tmp_policy_costs)) {
       policy_costs <- tmp_policy_costs[[i]] %>%
         rename(!!sym(paste0(pol_names[i], "_w.r.t_", ref_names[i])) := value) %>%
-        left_join(policy_costs, tmp_policy_costs[[i]], by = c("region", "period", "data"))
+        left_join(policy_costs, tmp_policy_costs[[i]], by = c("region", "period", "variable"))
     }
   }
   # and do some pivotting
   policy_costs <- policy_costs %>%
     pivot_longer(cols = matches(".*w\\.r\\.t.*"), names_to = "Model Output") %>%
-    pivot_wider(names_from = data)
+    pivot_wider(names_from = "variable")
 
   # By default, plots are only created until 2100
   if (!"4" %in% special_requests) {