context("test-rt_operational_groups")
vcr::use_cassette("rt_operational_groups", {
test_that("Can retrieve operational group list", {
expect_silent(res <- rt_operational_groups())
expect_is(res, "data.frame")
expect_equal(dim(res), c(203, 15))
expect_named(res, c("id", "name", "commonName", "shortDescription",
"mainGroup", "vernacularGroup1", "vernacularGroup2",
"vernacularGroup3", "description", "biology", "ecology",
"biogeography", "ethology", "economy", "self.href"))
})
test_that("Can retrieve specific operational group", {
expect_silent(res <- rt_operational_groups(opgroup_id = 143))
expect_is(res, "data.frame")
expect_equal(dim(res), c(1, 14))
expect_named(res, c("id", "name", "commonName", "shortDescription",
"mainGroup", "vernacularGroup1", "vernacularGroup2",
"vernacularGroup3", "description", "biology", "ecology",
"biogeography", "ethology", "economy"))
expect_equal(res$id, 143)
expect_equal(res$name, "Amphibiens")
})
test_that("Wrong query returns error", {
expect_error(rt_operational_groups(9),
"The query returned no results. Please try another query",
fixed = TRUE)
expect_error(rt_operational_groups("ASDF"),
"'opgroup_id' must be a numeric or NULL",
fixed = TRUE)
})
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.