From a33f1bbbf6f6121e8ad40284690a463733a00bc2 Mon Sep 17 00:00:00 2001
From: Johannes Ranke <jranke@uni-bremen.de>
Date: Mon, 9 Oct 2017 08:48:39 +0200
Subject: Write Step 2 input files on windows

---
 R/PEC_sw_focus.R | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'R/PEC_sw_focus.R')

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")
-- 
cgit v1.2.1