Nothing
# Tests for valid outputs ----
# Output should be a vector
# test_that("length of format inferior or equal to length of output", {
# ex <- GIFT_no_overlap(entity_IDs = c(1, 2))
# expect_identical(length(ex), c(2L))
#
# ex2 <- GIFT_no_overlap(entity_IDs = c(10071, 12078))
# expect_identical(length(ex2), c(1L))
#
# })
# Tests for invalid inputs ----
test_that("invalid inputs", {
# Error message when ref_ID and list_ID are missing
expect_error(
GIFT_no_overlap(entity_IDs = NULL),
"Please provide the ID numbers of the regions you want to check the
overlap of.", fixed = TRUE)
expect_error(
GIFT_no_overlap(entity_IDs = c(1, 2), area_threshold_island = NULL),
"'area_threshold_island' is a surface in km^2 indicating from which
surface the smallest overlapping polygon is kept.", fixed = TRUE)
expect_error(
GIFT_no_overlap(entity_IDs = c(1, 2), area_threshold_mainland = NULL),
"'area_threshold_mainland' is a surface in km^2 indicating from which
surface the smallest overlapping polygon is kept.", fixed = TRUE)
expect_error(
GIFT_no_overlap(entity_IDs = c(1, 2), overlap_threshold = NULL),
"'overlap_threshold' is a number ranging from 0 to 1, indicating at
what percentage of overlap, partially overlapping polygons should be
kept.", fixed = TRUE)
expect_error(
GIFT_no_overlap(entity_IDs = c(1, 2), api = NA),
"api must be a character string indicating which API to use.",
fixed = TRUE)
expect_error(
GIFT_no_overlap(entity_IDs = c(1, 2), GIFT_version = NA),
"'GIFT_version' must be a character string stating what version
of GIFT you want to use. Available options are 'latest', 'beta' and the
different named stable versions of GIFT.",
fixed = TRUE)
})
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.