tests/testthat/test_data.R

In restoptr: Ecological Restoration Planning

context("external datasets")

test_that("habitat_hi_res.tif",{
  f <- system.file("extdata", "habitat_hi_res.tif", package = "restoptr")
  x <- terra::rast(f)
  expect_is(x, "SpatRaster")
})

test_that("locked_out.tif",{
  f <- system.file("extdata", "locked_out.tif", package = "restoptr")
  x <- terra::rast(f)
  expect_is(x, "SpatRaster")
})

test_that("accessible_areas.gpkg",{
  f <- system.file("extdata", "accessible_areas.gpkg", package = "restoptr")
  x <- terra::vect(f)
  expect_is(x, "SpatVector")
})

test_that("spatial properties", {
  f1 <- system.file("extdata", "habitat_hi_res.tif", package = "restoptr")
  f2 <- system.file("extdata", "locked_out.tif", package = "restoptr")
  f3 <- system.file("extdata", "accessible_areas.gpkg", package = "restoptr")
  x1 <- terra::rast(f1)
  x2 <- terra::rast(f2)
  x3 <- terra::vect(f3)
  expect_true(terra::compareGeom(x1, x2, res = TRUE, stopOnError = FALSE))
  expect_false(terra::is.lonlat(x1))
  expect_false(terra::is.lonlat(x2))
  expect_false(terra::is.lonlat(x3))
})