aboutsummaryrefslogtreecommitdiff
path: root/R
diff options
context:
space:
mode:
authorJohannes Ranke <jranke@uni-bremen.de>2017-10-09 08:48:39 +0200
committerJohannes Ranke <jranke@uni-bremen.de>2017-10-09 08:48:39 +0200
commita33f1bbbf6f6121e8ad40284690a463733a00bc2 (patch)
tree135b3e35e5059aa0124de7f10923cb32636b1c06 /R
parent311c4fbcc51ad727551da41569d64e6bc290c2b2 (diff)
Write Step 2 input files on windows
Diffstat (limited to 'R')
-rw-r--r--R/PEC_sw_focus.R5
1 files changed, 3 insertions, 2 deletions
diff --git a/R/PEC_sw_focus.R b/R/PEC_sw_focus.R
index 1564535..e063ff3 100644
--- a/R/PEC_sw_focus.R
+++ b/R/PEC_sw_focus.R
@@ -107,8 +107,9 @@ 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",
- file = txt, append = TRUE)
+ add_line <- function(x) {
+ cat(paste0(x, "\r\n"), file = txt, append = TRUE)
+ }
if (file.exists(txt_file)) {
if (append) {
txt <- file(txt_file, "a")

Contact - Imprint