tests/testthat/test_salt_data.R

In prioritizr/prioritizrdata: Conservation Planning Datasets

context("salt data")

test_that("salt_pu", {
  salt_pu <- get_salt_pu()
  expect_is(salt_pu, "SpatRaster")
  expect_gt(terra::global(salt_pu, "min", na.rm = TRUE)[[1]], 0)
})

test_that("salt_features", {
  salt_features <- get_salt_features()
  expect_is(salt_features, "SpatRaster")
  expect_true(
    all(terra::global(salt_features, "min", na.rm = TRUE)[[1]] >= 0)
  )
})

test_that("salt_con", {
  salt_con <- get_salt_con()
  expect_is(salt_con, "SpatRaster")
  expect_true(
    all(terra::global(salt_con, "min", na.rm = TRUE)[[1]] >= 0)
  )
})

test_that("standardized missing values", {
  salt_pu <- get_salt_pu()
  salt_features <- get_salt_features()
  expect_equal(nonNA_cells(salt_pu), nonNA_cells(sum(salt_features)))
})

test_that("rasters are comparable", {
  salt_pu <- get_salt_pu()
  salt_features <- get_salt_features()
  salt_con <- get_salt_con()
  expect_true(
    terra::compareGeom(salt_pu, salt_features, stopOnError = FALSE)
  )
  expect_true(
    terra::compareGeom(salt_pu, salt_con, stopOnError = FALSE)
  )
})