Nothing
library(SticsRFiles)
stics_version <- get_stics_versions_compat()$latest_version
context("Getting and Setting values from xml files")
path <- get_examples_path("xml", stics_version = stics_version)
# Copy example to test in tempdir since the files will be modified by set_param
file.copy(
from = file.path(path, list.files(path)), to = tempdir(),
overwrite = TRUE
)
file <- file.path(tempdir(), "file_plt.xml")
tmp1 <- unlist(get_param_xml(file,
param = "stlevamf",
stics_version = stics_version
))
codevar <- unlist(get_param_xml(file,
param = "codevar",
stics_version = stics_version
))
tmp2 <- unlist(get_param_xml(file,
param = "stlevamf",
variety = codevar, stics_version = stics_version
))
variete <- unlist(get_param_xml(file,
param = "variete",
stics_version = stics_version
))
tmp3 <- unlist(get_param_xml(file,
param = "stlevamf",
variety = variete, stics_version = stics_version
))
test_that("variety argument can take NULL, integer or characters", {
expect_equal(tmp1, tmp2)
expect_equal(tmp2, tmp3)
})
varieties <- get_param_xml(file,
param = "variete",
stics_version = stics_version
)$file_plt.xml$variete[1:1]
tmp1 <- get_param_xml(file,
param = "stlevamf",
variety = varieties,
stics_version = stics_version
)$file_plt.xml$stlevamf
tmp2 <- get_param_xml(file,
stics_version = stics_version
)$file_plt.xml$stlevamf[1:1]
test_that("variety argument can be a vector of characters", {
expect_equal(tmp1, tmp2)
})
# Get and modify the non-varietal parameter "forme"
# (another parameter has a similar name : rapforme ...)
tmp <- unlist(get_param_xml(file,
param = "forme", exact = TRUE,
stics_version = stics_version
))
set_param_xml(file,
param = "forme",
values = tmp + 1,
overwrite = TRUE
)
tmp2 <- unlist(get_param_xml(file,
param = "forme", exact = TRUE,
stics_version = stics_version
))
test_that("Set and get of a non-varietal parameter for a unique plant", {
expect_equal(length(tmp), 1)
expect_equal(tmp + 1, tmp2)
})
# Get and modify the varietal parameter "stlevamf" for the simulated variety
tmp <- unlist(get_param_xml(file,
param = "stlevamf",
stics_version = stics_version
))
set_param_xml(file,
param = "stlevamf",
values = tmp + 1,
overwrite = TRUE
)
tmp2 <- unlist(get_param_xml(file,
param = "stlevamf",
stics_version = stics_version
))
test_that("Set and get of a varietal parameter for a unique plant
for the simulated variety", {
expect_equal(tmp + 1, tmp2)
})
# Get and modify the varietal parameter "stlevamf" for a given variety
tmp <- unlist(get_param_xml(file,
param = "stlevamf", variety = 1,
stics_version = stics_version
))
set_param_xml(file,
param = "stlevamf",
values = as.numeric(tmp) + 1,
variety = 1,
overwrite = TRUE
)
tmp2 <- unlist(get_param_xml(file,
workspace = path, param = "stlevamf", variety = 1,
stics_version = stics_version
))
test_that("Set and get of a varietal parameter for a unique plant
for a given variety", {
expect_equal(tmp + 1, tmp2)
})
# Now let's work on intercrops ...
path <- file.path(file,
get_examples_path("txt", stics_version = stics_version),
"intercrop_pea_barley"
)
# Copy example to test in tempdir since the files will be modified by set_param
file.copy(
from = file.path(path, list.files(path)), to = tempdir(),
overwrite = TRUE
)
path <- tempdir()
# Get and modify the non-varietal parameter "forme" for the simulated variety
tmp <- unlist(get_param_xml(file,
param = "forme", exact = TRUE,
stics_version = stics_version
))
plant <- 2
set_param_xml(file,
param = "forme",
values = tmp + 1,
plant_id = plant,
overwrite = TRUE
)
tmp2 <- unlist(get_param_xml(file,
param = "forme", exact = TRUE,
stics_version = stics_version
))
test_that("Set and get of a non-varietal parameter for an intercrop
for the simulated variety", {
expect_equal(tmp + 1, tmp2)
})
# Get and modify the varietal parameter "stlevamf" for the simulated variety
tmp <- unlist(get_param_xml(file,
param = "stlevamf",
stics_version = stics_version
))
plant <- 2
set_param_xml(file,
param = "stlevamf",
values = tmp + 1,
plant_id = 2,
overwrite = TRUE
)
tmp2 <- unlist(get_param_xml(file,
param = "stlevamf",
stics_version = stics_version
))
test_that("Set and get of a varietal parameter for an intercrop
for the simulated variety", {
expect_equal(tmp + 1, tmp2)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.