vcr::use_cassette("ebirdregioninfo", {
test_that("ebirdregioninfo works correctly", {
us <- ebirdregioninfo("US")
expect_true(inherits(us, "data.frame"))
expect_equal(us$region, "United States")
expect_equal(NROW(us), 1)
expect_equal(NCOL(us), 5)
expect_true(inherits(us$region, "character"))
expect_true(inherits(us$minX, "numeric"))
sp <- ebirdregioninfo("L99381")
expect_true(inherits(sp, "data.frame"))
expect_equal(sp$name, "Stewart Park")
expect_equal(NROW(sp), 1)
expect_equal(NCOL(sp), 16)
expect_true(inherits(sp$name, "character"))
expect_true(inherits(sp$latitude, "numeric"))
expect_true(inherits(sp$longitude, "numeric"))
})
test_that("ebirdregioninfo fails correctly", {
expect_error(ebirdregioninfo())
expect_error(ebirdregioninfo("foo"), class = "error")
expect_error(ebirdregioninfo("CA-BC-ZZ"), "No region with code")
expect_error(ebirdregioninfo("US", key = "foo"), class = "http_403")
expect_error(ebirdregioninfo("L00000"), "No such hotspot")
})
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.