library(flextreat.hydrus1d)
atm <- prepare_atmosphere_data()
atm_selected <- atm[atm$date >= "2017-05-01" & atm$date <= "2023-12-31",]
#atm_selected <- select_hydrologic_years(atm)
atm_prep <- prepare_atmosphere(atm_selected)
atmos <- kwb.hydrus1d::write_atmosphere(atm = atm_prep,
MaxAL = nrow(atm_prep)
)
writeLines(text = atmos,
file.path("inst/extdata/model/test/ATMOSPH.IN"))
# writeLines(text = atmos,
# system.file("extdata/model/test/ATMOSPH.IN", package = "flextreat.hydrus1d"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.