From 24a2fcba8532b01089a0f68e25975c3dcb538819 Mon Sep 17 00:00:00 2001
From: orichters <oliverr@pik-potsdam.de>
Date: Tue, 26 Mar 2024 08:13:37 +0100
Subject: [PATCH] fix bug in fixOnRef, avoid that 'scenario' has two meanings
 for R

---
 scripts/output/single/fixOnRef.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/scripts/output/single/fixOnRef.R b/scripts/output/single/fixOnRef.R
index f73d21231..758a2244f 100644
--- 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)
 }