From 65db0af68ac966fbb5f5926069655a4e9dfb605c Mon Sep 17 00:00:00 2001
From: mrustl <michael.rustler@kompetenz-wasser.de>
Date: Mon, 15 Jul 2024 15:38:50 +0200
Subject: [PATCH] Improve/fix write_selector()

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

diff --git a/R/write_selector.R b/R/write_selector.R
index 024dce1..be338b8 100644
--- a/R/write_selector.R
+++ b/R/write_selector.R
@@ -21,7 +21,7 @@ write_selector <- function(selector, path) {
     basic_names[i_head],
     as.character(basic_values[i_head]),
     paste0(paste0(basic_names[i_units], collapse = "  "),
-           "(indicated units are obligatory for all input data)",
+           "  (indicated units are obligatory for all input data)",
            collapse = "  "),
     sapply(i_units, function(i) basic_values[i]) %>% as.character(),
     lapply(1:3, function(i) {
@@ -191,7 +191,8 @@ write_selector <- function(selector, path) {
              basic_txt,
              waterflow_txt,
              time_txt,
-             solutes_txt)
+             solutes_txt,
+             "*** END OF INPUT FILE 'SELECTOR.IN' ************************************")
 
   writeLines(lines, path)
 }