## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)
options(tibble.print_min = 5, tibble.print_max = 5)

## ----eval=FALSE---------------------------------------------------------------
#  library(SticsRFiles)

## ----include=FALSE------------------------------------------------------------
suppressWarnings(library(SticsRFiles))

## ----echo=FALSE---------------------------------------------------------------
stics_version <- get_stics_versions_compat()$latest_version

## -----------------------------------------------------------------------------
example_txt_dir <-
  get_examples_path(file_type = "txt", stics_version = stics_version)

## -----------------------------------------------------------------------------
get_stics_versions_compat()$versions_list

## -----------------------------------------------------------------------------
get_param_txt(workspace = example_txt_dir, param = "patm")

## -----------------------------------------------------------------------------
get_param_txt(workspace = example_txt_dir, param = "atm")

## -----------------------------------------------------------------------------
get_param_txt(workspace = example_txt_dir, param = "a")$soil

## -----------------------------------------------------------------------------
get_param_txt(workspace = example_txt_dir, param = "interrang")

## -----------------------------------------------------------------------------
get_param_txt(workspace = example_txt_dir, param = "stlevamf",
              variety = c("Pactol", "Cecilia", "clarica"))

## -----------------------------------------------------------------------------
get_param_txt(workspace = example_txt_dir, param = "stlevamf",
              variety = c(1, 2, 5))

## ----eval=FALSE---------------------------------------------------------------
#  get_climate_txt(workspace = example_txt_dir)

## ----echo=FALSE---------------------------------------------------------------
library(dplyr)
get_climate_txt(workspace = example_txt_dir) %>%
  rmarkdown::paged_table()

## -----------------------------------------------------------------------------
get_param_txt(workspace = example_txt_dir, param = "patm")

## -----------------------------------------------------------------------------
set_param_txt(workspace = example_txt_dir, param = "patm", value = 900)

## -----------------------------------------------------------------------------
get_param_txt(workspace = example_txt_dir, param = "patm")

## ----include=FALSE------------------------------------------------------------
# resetting the value:
set_param_txt(workspace = example_txt_dir, param = "patm", value = 1000)

## -----------------------------------------------------------------------------
get_param_txt(workspace = example_txt_dir, param = "densinitial")

## -----------------------------------------------------------------------------
set_param_txt(workspace = example_txt_dir,
              param = "densinitial",
              plant_id = 1,
              layer = c(1, 4),
              value = c(0.5, 0.1))

## -----------------------------------------------------------------------------
get_param_txt(workspace = example_txt_dir, param = "densinitial")

## -----------------------------------------------------------------------------
gen_varmod(workspace = example_txt_dir, var = c("lai(n)", "masec(n)"))

## -----------------------------------------------------------------------------
get_varmod(example_txt_dir)

## -----------------------------------------------------------------------------
gen_varmod(workspace = example_txt_dir, var = c("hauteur"), append = TRUE)
get_varmod(example_txt_dir)

## -----------------------------------------------------------------------------
get_var_info("lai")