# test file for setup_sdmdata function
## goal: test output of function
context("basic setup test")
# creating objects to be used on tests
my_seed <- 42
my_dir <- "../tmp_test/"
sp <- names(example_occs)[1]
sp_coord <- example_occs[[1]]
# helper function
run_setup <- function(my_seed, ...) {
setup_sdmdata(species_name = sp,
occurrences = sp_coord,
predictors = example_vars,
seed = my_seed,
boot_n = 4,
models_dir = my_dir,
clean_uni = TRUE,
...)
}
my_setup <- run_setup(my_seed)
# the test itself
#test_that("testing that seed works", {
# expect_message(run_setup(my_seed),
# "same metadata, no need to run data partition")
# expect_message(run_setup(123),
# "saving metadata")
#})
test_that("all outputs were generated", {
setup_dir <- paste0(my_dir, sp, "/present/data_setup/")
# does it have two metadata and sdmdata csv files?
expect_length(list.files(path = setup_dir,
pattern = "metadata.csv"), 1)
expect_length(list.files(path = setup_dir,
pattern = "sdmdata.csv"), 1)
# does it have sdmdata png file?
expect_length(list.files(path = setup_dir,
pattern = "sdmdata_.*png"), 1)
})
test_that("setup is a data frame and has numeric values", {
expect_s3_class(my_setup, "data.frame")
lapply(apply(my_setup, 2, is.numeric), expect_true)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.