inst/tinytest/test_backward_compatibility.R

sim_env <- terra::sds(terra::rast(vals = 1, nrow = 2, ncol = 2))
sim <- metaRangeSimulation$new(source_environment = sim_env)
sim$add_species(c("s1", "s2"))
sim$add_species(names = c("s3", "s4"))
sim$add_species(name = c("s5", "s6"))
expect_error(sim$add_species())
expect_true(all(sim$species_names() %in% c("s1", "s2", "s3", "s4", "s5", "s6")))

Try the metaRange package in your browser

Any scripts or data that you put into this service are public.

metaRange documentation built on May 29, 2024, 5:54 a.m.