diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2017-06-22 08:23:13 +0200 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2017-06-22 08:43:14 +0200 |
| commit | dffa31a5ad5026d4d67327da622f45c00be40584 (patch) | |
| tree | cd2831e92a0b9523397937c7acc3c53e44bb004b /R | |
| parent | 0d60c88ba7e0693a832056ea3db5cc0eaf3b0819 (diff) | |
Add scenario, region and season to run name
Diffstat (limited to 'R')
| -rw-r--r-- | R/PEC_sw_focus.R | 15 |
1 files changed, 11 insertions, 4 deletions
diff --git a/R/PEC_sw_focus.R b/R/PEC_sw_focus.R index aed83a0..1dd5340 100644 --- a/R/PEC_sw_focus.R +++ b/R/PEC_sw_focus.R @@ -70,8 +70,8 @@ PEC_sw_focus <- function(parent, rate, n = 1, i = NA, scenario = FOCUS_Step_12_scenarios$names, region = c("n", "s"), season = c(NA, "of", "mm", "js"), - interception = c("no interception", "minimal crop cover", - "average crop cover", "full canopy"), + interception = c("no interception", "minimal crop cover", + "average crop cover", "full canopy"), txt_file = "pesticide.txt", overwrite = FALSE, append = TRUE) { if (n > 1 & is.na(i)) stop("Please specify the interval i if n > 1") @@ -102,7 +102,7 @@ PEC_sw_focus <- function(parent, rate, n = 1, i = NA, "DT50 water", "DT50 sediment", "Region / Season", "Interception class") - add_line <- function(x) cat(x, sep = "\r\n", + add_line <- function(x) cat(x, sep = "\r\n", file = txt, append = TRUE) if (file.exists(txt_file)) { if (append) { @@ -169,8 +169,15 @@ PEC_sw_focus <- function(parent, rate, n = 1, i = NA, reg_sea = reg_code + sea_code } + if (is.null(met)) { + name_input <- paste(parent$name, scenario, region, season) + } else { + name_input <- paste(met$name, scenario, region, season) + } + if (comment != "") name_input = paste(name_input, comment) + run_txt <- c( - ai = parent$name, compound = compound, + ai = name_input, compound = name_input, comment = comment) run_numeric <- c( |