Nothing
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)
)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.