From eab95c62479d732cbd531ad67ea458d2744af420 Mon Sep 17 00:00:00 2001
From: Johannes Ranke <jranke@uni-bremen.de>
Date: Thu, 27 Sep 2018 18:58:32 +0200
Subject: Create valid Step 1 files with fewer arguments

---
 R/PEC_sw_focus.R | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'R')

diff --git a/R/PEC_sw_focus.R b/R/PEC_sw_focus.R
index e2c3e54..7c65e24 100644
--- a/R/PEC_sw_focus.R
+++ b/R/PEC_sw_focus.R
@@ -128,6 +128,10 @@ PEC_sw_focus <- function(parent, rate, n = 1, i = NA,
   }
   on.exit(close(txt))
 
+  scenario = match.arg(scenario)
+  region = match.arg(region)
+  season = match.arg(season)
+  interception = match.arg(interception)
 
   if (is.null(met)) {
     compound = parent$name
-- 
cgit v1.2.1