## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

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

## ----eval=FALSE, include=TRUE-------------------------------------------------
# example_data <- SticsRFiles::download_data(
#   example_dirs = "study_case_1",
#   stics_version = "V10.0"
# )

## ----results='hold', echo=FALSE-----------------------------------------------
example_data <- SticsRFiles::download_data(
  # branch = "test",
  example_dirs = "study_case_1",
  stics_version = "V10.0"
)

## ----eval=FALSE, include=TRUE-------------------------------------------------
# workspace <- file.path(example_data, "XmlFiles")
# plant_file <- file.path(workspace, "plant", "maisopti_plt.xml")

## ----results='hold', echo=FALSE-----------------------------------------------
if (!is.null(example_data)) {
  workspace <- file.path(example_data, "XmlFiles")
  plant_file <- file.path(workspace, "plant", "maisopti_plt.xml")
} else {
  workspace <- plant_file <- NULL
  warning("Skipping setting plant file path; data unavailable")
}

## -----------------------------------------------------------------------------
SticsRFiles::get_var_info("lai")

## -----------------------------------------------------------------------------
SticsRFiles::get_var_info(keyword = "lai")

## -----------------------------------------------------------------------------
head(get_param_info(param = "lai"))

## -----------------------------------------------------------------------------
head(get_param_info(keyword = "plant"))

## ----eval=FALSE---------------------------------------------------------------
# dlaimax <- get_param_xml(plant_file, "dlaimax")
# dlaimax

## ----results='hold', echo=FALSE-----------------------------------------------
if (!is.null(plant_file)) {
  dlaimax <- get_param_xml(plant_file, "dlaimax")
  dlaimax
} else {
  message("Skipping getting dlaimax; data unavailable")
}

## ----eval=FALSE---------------------------------------------------------------
# values <- get_param_xml(plant_file,
#   select = "formalisme",
#   select_value = "radiation interception"
# )
# unlist(values) # For pretty-printing

## ----results='hold', echo=FALSE-----------------------------------------------
if (!is.null(plant_file)) {
  values <- get_param_xml(plant_file,
    select = "formalisme",
    select_value = "radiation interception"
  )
  unlist(values) # For pretty-printing
} else {
  warning("Skipping getting 'radiation interception' parameters values; data unavailable")
}

## ----eval=FALSE---------------------------------------------------------------
# new_values <- unlist(dlaimax) * 1.3
# set_param_xml(file = plant_file, param = "dlaimax", values = new_values, overwrite = TRUE)

## ----results='hold', echo=FALSE-----------------------------------------------
if (!is.null(plant_file) && exists("dlaimax")) {
  new_values <- unlist(dlaimax) * 1.3
  set_param_xml(file = plant_file, param = "dlaimax", values = new_values, overwrite = TRUE)
} else {
  warning("Skipping setting dlaimax values; the object dlaimax does not exist or data are unavailable")
}

## ----eval=FALSE---------------------------------------------------------------
# dlaimax <- get_param_xml(plant_file, "dlaimax")
# dlaimax

## ----results='hold', echo=FALSE-----------------------------------------------
if (!is.null(plant_file)) {
  dlaimax <- get_param_xml(plant_file, "dlaimax")
  dlaimax
} else {
  warning("Skipping getting dlaimax values; data unavailable")
}

## -----------------------------------------------------------------------------
obs_df <- data.frame(
  usm_name = "Test", ian = 2021, mo = 3:10, jo = 1,
  `masec(n)` = 0.1 * 3:10
)

## ----eval=FALSE---------------------------------------------------------------
# gen_obs(df = obs_df, out_dir = "/path/to/dest/dir")

## -----------------------------------------------------------------------------
obs <- get_obs(workspace)

## ----eval=FALSE---------------------------------------------------------------
# sim <- get_sim(workspace)
# #> Warning in get_file_(workspace = x, usm_name = usm_name, usms_filepath =
# #> usms_path, : Not any sim file detected in
# #> workspace/tmp/RtmpjkDYAq/data-master/
# #> study_case_1/V10.0/XmlFiles