Fix ATMOSPH.in file creation to be displayed

correctly in GUI! (requires "weird" adding of RootDepth and deleting of all cTop/cBot headers besides cTop/cBot
KWB-R · Jul 5, 2024 · 13364fb · 13364fb
1 parent 7fec900
commit 13364fb
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/convert_atmosphere_to_string.R b/R/convert_atmosphere_to_string.R
@@ -52,8 +52,8 @@ convert_atmosphere_to_string <- function(
   names(atm)[is_short] <- do_pad_short(names(atm)[is_short])
   names(atm)[is_long] <- do_pad_long(names(atm)[is_long])
 
-  header_text <- c(names(atm)[!grepl("(cTop|cBot)[2-9][1-9]?[0-9]?", names(atm))], "RootDepth") %>%
-    do_pad_long() %>%
+  header_text <- c(names(atm)[!grepl("[cTop|cBot][1-9]0?", names(atm))],
+                   do_pad_long("RootDepth")) %>%
     kwb.utils::collapsed(collapse = "")
 
   body_lines <- apply(atm, 1L, kwb.utils::collapsed, "")