Fix for Hydrus 1D GUI to correctly read ATMOSPH

file (because otherwise it is not correctly shown in GUI)
KWB-R · Jun 18, 2024 · 068fbcc · 068fbcc
1 parent 8711f6b
commit 068fbcc
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/R/convert_atmosphere_to_string.R b/R/convert_atmosphere_to_string.R
@@ -52,7 +52,10 @@ 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 <- kwb.utils::collapsed(names(atm), "")
+  header_text <- c(names(atm)[!grepl("(cTop|cBot)[2-9][1-9]?[0-9]?", names(atm))], "RootDepth") %>%
+    do_pad_long() %>%
+    kwb.utils::collapsed(collapse = "")
+
   body_lines <- apply(atm, 1L, kwb.utils::collapsed, "")
 
   kwb.utils::collapsed(c(header_text, body_lines), "\n")