From 0d60c88ba7e0693a832056ea3db5cc0eaf3b0819 Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Tue, 20 Jun 2017 14:16:14 +0200 Subject: Fix line endings and allow all interception classes --- R/PEC_sw_focus.R | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/R/PEC_sw_focus.R b/R/PEC_sw_focus.R index cbf182d..aed83a0 100644 --- a/R/PEC_sw_focus.R +++ b/R/PEC_sw_focus.R @@ -70,7 +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 = "no interception", + 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") @@ -101,7 +102,8 @@ PEC_sw_focus <- function(parent, rate, n = 1, i = NA, "DT50 water", "DT50 sediment", "Region / Season", "Interception class") - add_line <- function(x) cat(paste0(x, "\r\n"), file = txt, append = TRUE) + add_line <- function(x) cat(x, sep = "\r\n", + file = txt, append = TRUE) if (file.exists(txt_file)) { if (append) { txt <- file(txt_file, "a") -- cgit v1.2.1