context("locations")
test_that("We can query locations", {
needs_api()
#testthat::skip("need to piggyback faorefs table first")
sp <- c("Labroides bicolor", "Labroides dimidiatus",
"Labroides pectoralis", "Labroides phthirophagus",
"Labroides rubrolabiatus")
df <- distribution(sp)
expect_is(df, "data.frame")
df <- distribution()
expect_is(df, "data.frame")
## currently these are remote tables
## collecting them may create issues since
## country_names() is used internally
df <- countrysubref()
expect_is(df, "tbl")
df <- c_code()
expect_is(df, "tbl")
df <- country_names()
expect_is(df, "tbl")
expect_error(occurrence())
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.