tests/testthat/testExtractAndCombData.R

In zoon: Reproducible, Accessible & Shareable Species Distribution Modelling

context("ExtractAndCombData")

test_that("ExtractAndCombData works.", {
  x <- ExtractAndCombData(head(AplumbeusOcc), UKAirRas)

  expect_true(inherits(x, "list"))
  expect_true(all.equal(names(x), c("df", "ras")))
  expect_true(all.equal(dim(x$df), c(6, 6)))

  # Give an error if trying to use occurrence data outside raster extent
  outOfExtentData <- head(AplumbeusOcc)
  outOfExtentData$longitude <- -20

  expect_warning(ExtractAndCombData(outOfExtentData, UKAirRas))

  # test that attributes are carried though
  attr(AplumbeusOcc, "testing") <- list(1:5, "test")
  y <- ExtractAndCombData(head(AplumbeusOcc), UKAirRas)
  expect_equal(list(1:5, "test"), attr(y$df, "testing"))
})