# nolint start
context("nlm_mosaicfield")
mosaic_field <- nlm_mosaicfield(
ncol = 20,
nrow = 30,
n = 3,
infinit = TRUE,
collect = FALSE
)
test_that("nlm_mosaicfield behaves like it should", {
expect_that(mosaic_field$mosaicfield_raster, is_a("RasterLayer"))
})
test_that("nlm_mosaicfield produces the right number of rows", {
expect_equal(mosaic_field$mosaicfield_inf@nrows, 30)
})
test_that("nlm_mosaicfield produces the right number of columns", {
expect_equal(mosaic_field$mosaicfield_raster@ncols, 20)
})
test_that("nlm_mosaicfield stores at least 2 raster when infinit true
and n != NA",
{
expect_equal(length(mosaic_field), 2)
})
mosaic_field2 <- nlm_mosaicfield(
ncol = 20,
nrow = 30,
n = 3,
infinit = TRUE,
collect = TRUE
)
test_that("nlm_mosaicfield stores at least 3 raster when infinit true
and n != NA and collect true",
{
expect_equal(length(mosaic_field2), 3)
})
test_that("nlm_mosaicfield stores collection as rasterbrick",
{
expect_that(mosaic_field2$steps, is_a("RasterBrick"))
})
# nolint end
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.