From eab95c62479d732cbd531ad67ea458d2744af420 Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Thu, 27 Sep 2018 18:58:32 +0200 Subject: Create valid Step 1 files with fewer arguments --- ChangeLog | 6 ++++++ DESCRIPTION | 2 +- R/PEC_sw_focus.R | 4 ++++ 3 files changed, 11 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 37e9c30..059b453 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +commit 8452daa2015aa645dcc1eca3ec2bba5726603e4e +Author: Johannes Ranke +Date: 2018-09-22 09:54:59 +0200 + + Add test and update docs + commit ff7e67a4d3415419dd3f712ef1af7467ebf65508 Author: Johannes Ranke Date: 2018-09-21 19:39:44 +0200 diff --git a/DESCRIPTION b/DESCRIPTION index e526ff0..1483745 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -2,7 +2,7 @@ Package: pfm Type: Package Title: Utilities for Pesticide Fate Modelling Version: 0.5.2 -Date: 2018-09-22 +Date: 2018-09-26 Authors@R: person("Johannes Ranke", email = "jranke@uni-bremen.de", role = c("aut", "cre", "cph"), comment = c(ORCID = "0000-0003-4371-6538")) 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