context("gbif_names")
test_that("gbif_names", {
skip_on_cran()
skip_on_ci()
aa <- gbif_names(name_lookup(query='snake', hl=TRUE), browse=FALSE)
expect_is(aa, "character")
expect_match(aa, "index.html")
out <- name_lookup(query='canada', hl=TRUE, limit=5)
bb <- gbif_names(out, browse = FALSE)
cc <- gbif_names(name_lookup(query='snake', hl=TRUE), browse = FALSE)
dd <- gbif_names(name_lookup(query='bird', hl=TRUE), browse = FALSE)
expect_is(bb, "character")
expect_is(cc, "character")
expect_is(dd, "character")
expect_equal(length(bb), 1)
expect_equal(length(cc), 1)
expect_equal(length(dd), 1)
expect_match(bb, "index.html")
expect_match(cc, "index.html")
expect_match(dd, "index.html")
})
test_that("fails correctly", {
skip_on_cran()
skip_on_ci()
nms <- name_lookup(query='snake', hl=TRUE)
res <- gbif_names(nms, browse=FALSE)
# input of wrong class fails well
expect_error(gbif_names("adf", browse = FALSE), "input should be of class gbif")
expect_error(gbif_names(77, browse = FALSE), "input should be of class gbif")
# output fails well
expect_error(gbif_names(nms, 6, browse = FALSE), "invalid 'file' argument")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.