Nothing
context("spatialsearch")
test_that("spatialsearch works correctly", {
skip_on_cran()
vcr::use_cassette("spatialsearch", {
a <- spatialsearch(lat = 33.529, lon = -105.694, radius = 2000,
limit = 10, messages = FALSE)
})
expect_is(a, "list")
expect_is(a$meta, "list")
expect_is(a$data, "data.frame")
expect_is(a$data$references, "character")
expect_is(na.omit(unique(a$data$specificepithet)), "character")
expect_equal(NROW(a$data), 10)
expect_gt(min(as.numeric(a$data$decimallatitude)), 10)
expect_gt(min(as.numeric(a$data$decimallongitude)), -110)
})
test_that("spatialsearch fails correctly", {
skip_on_cran()
# server error when not passing any vars
expect_error(spatialsearch(messages = FALSE), 'argument "lat" is missing')
# server error when pass bad var types
expect_message(spatialsearch(lat = "asdfadsf", long = -80, radius = 1))
# server error when pass bad var types
expect_message(spatialsearch(lat = 50, long = "asdfadsf", radius = 1))
# message given when verobse is TRUE
expect_message(spatialsearch(lat = 33.529, long = -105.694,
radius = 2000, limit = 1, messages = 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.