fix bug in fixOnRef, avoid that 'scenario' has two meanings for R

remindmodel · Mar 26, 2024 · 24a2fcb · 24a2fcb
1 parent 03b2fe0
commit 24a2fcb
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/scripts/output/single/fixOnRef.R b/scripts/output/single/fixOnRef.R
@@ -37,7 +37,7 @@ findRefMif <- function(outputdir, envi) {
   return(refmif)
 }
 
-fixMAGICC <- function(d, dref, startyear, scenario) {
+fixMAGICC <- function(d, dref, startyear, scen) {
   magiccgrep <- "^Forcing|^Temperature|^Concentration"
   message("Fixing MAGICC6 data before ", startyear)
   dnew <-
@@ -47,7 +47,7 @@ fixMAGICC <- function(d, dref, startyear, scenario) {
       filter(d, ! grepl(magiccgrep, .data$variable) |
              .data$period >= startyear)
     ) %>%
-    mutate(scenario = factor(scenario)) %>%
+    mutate(scenario = factor(scen)) %>%
     droplevels()
   return(dnew)
 }