tests/testthat/test-gen_sols_xml.R

In SticsRFiles: Read and Modify 'STICS' Input/Output Files

library(SticsRFiles)

stics_version <- get_stics_versions_compat()$latest_version
version_num <- get_version_num()

context("Creating an xml soils file to latest version")

workspace_path <- get_examples_path("xml", stics_version = stics_version)
xl_path <- download_usm_xl(file = "inputs_stics_example.xlsx", overwrite = TRUE)
sols_param_df <- read_params_table(file = xl_path, sheet_name = "Soils")

out_dir <- file.path(tempdir(), "soil_xml")
if (!dir.exists(out_dir)) dir.create(out_dir)

gen_sols_xml(file = file.path(out_dir, "sols.xml"), param_df = sols_param_df)

test_that("Create a xml soil file", {
  expect_true(file.exists(file.path(out_dir, "sols.xml")))
})