Fix ATMOSPH.in (wrong irrigation values)

KWB-R · Sep 24, 2024 · 2675451 · 2675451
1 parent a311944
commit 2675451
Show file tree

Hide file tree

Showing 2 changed files with 549 additions and 551 deletions.
diff --git a/data-raw/write_atmosphere.R b/data-raw/write_atmosphere.R
@@ -10,12 +10,10 @@ atmos <- kwb.hydrus1d::write_atmosphere(atm = atm_prep,
                                         MaxAL = nrow(atm_prep)
                                         )
 
-
 writeLines(text = atmos,
-           "inst/extdata/model/test/ATMOSPH.IN")
-
+           file.path("inst/extdata/model/test/ATMOSPH.IN"))
 
 
-writeLines(text = atmos,
-           system.file("extdata/model/test/ATMOSPH.IN", package = "flextreat.hydrus1d"))
+# writeLines(text = atmos,
+#            system.file("extdata/model/test/ATMOSPH.IN", package = "flextreat.hydrus1d"))