tests/testthat/test-mcalc.R

In magclass: Data Class and Tools for Handling Spatial-Temporal Data

a <- maxample("animal")

test_that("mcalc works", {
   a2 <- setItems(2 * a[, , "rabbit"], dim = 3.2, "rabbit2")
   expect_identical(mcalc(a, `rabbit2` ~ 2 * rabbit), a2)
   expect_true(all(mcalc(a, `GLO` ~ 0.5 * NLD - 1 / 2 * NLD) == 0))
   expect_error(mcalc(a, `BLUB` ~ 10 * NOTanElement), "no match")
   getItems(a, dim = 3.1) <- "NLD"
   expect_error(mcalc(a, `BLUB` ~ 10 * NLD), "multiple matches")
   expect_silent(mcalc(a, `dog2` ~ 2 * dog, append = TRUE))
   expect_identical(a[, , "dog2"], mcalc(a, `dog2` ~ 2 * dog))
})

test_that("calculations work", {
   p <- maxample("pop")
   p1 <- setItems(p[, , 1], dim = 3, NULL)
   p0 <- p1[, , -1]
   expect_identical(p0, p1 * p0)
   expect_identical(p0, p0 * p1)
})