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/LoggingLab documentation built on Oct. 16, 2024, 9:42 p.m.