diff options
| -rw-r--r-- | ChangeLog | 6 | ||||
| -rw-r--r-- | DESCRIPTION | 2 | ||||
| -rw-r--r-- | R/PEC_sw_focus.R | 4 |
3 files changed, 11 insertions, 1 deletions
@@ -1,3 +1,9 @@ +commit 8452daa2015aa645dcc1eca3ec2bba5726603e4e +Author: Johannes Ranke <jranke@uni-bremen.de> +Date: 2018-09-22 09:54:59 +0200 + + Add test and update docs + commit ff7e67a4d3415419dd3f712ef1af7467ebf65508 Author: Johannes Ranke <jranke@uni-bremen.de> 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 |