tests/testthat/test-getmask.R

test_that("getmask", {
  data(Paracou6_2016)
  data(DTMParacou)
  mask <- getmask(Paracou6_2016, DTMParacou)
  # See issue #67 for possible error
  expect_true(inherits(mask, "SpatialPolygons"))
})
VincyaneBadouard/Maria documentation built on Oct. 15, 2024, 1:38 a.m.