Nothing
context("Function createDistrict")
sapply(studies, function(study) {
setup_study(study, sourcedir)
opts <- antaresRead::setSimulationPath(studyPath, "input")
test_that("Create a new district", {
areas <- sort(sample(x = getOption("antares")$areaList, size = 2))
createDistrict(
name = "mydistrict",
apply_filter = "add-all",
remove_area = areas
)
expect_true("mydistrict" %in% antaresRead::getDistricts())
})
# remove temporary study
unlink(x = file.path(pathstd, "test_case"), recursive = TRUE)
})
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.