diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2017-10-09 08:48:39 +0200 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2017-10-09 08:48:39 +0200 |
| commit | a33f1bbbf6f6121e8ad40284690a463733a00bc2 (patch) | |
| tree | 135b3e35e5059aa0124de7f10923cb32636b1c06 /R | |
| parent | 311c4fbcc51ad727551da41569d64e6bc290c2b2 (diff) | |
Write Step 2 input files on windows
Diffstat (limited to 'R')
| -rw-r--r-- | R/PEC_sw_focus.R | 5 |
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") |