Nothing
context("ebird_species")
test_that("ebird_species mixing both scientific and common names", {
expect_equal(ebird_species(c("Blackburnian Warbler", "Poecile atricapillus")),
c("Setophaga fusca", "Poecile atricapillus"))
expect_equal(ebird_species("Bornean Bristlehead"), "Pityriasis gymnocephala")
})
test_that("ebird_species not case sensitive", {
expect_equal(ebird_species(c("blackburnian warbler", "poecile atricapillus")),
c("Setophaga fusca", "Poecile atricapillus"))
expect_equal(ebird_species("bornean bristlehead"), "Pityriasis gymnocephala")
})
test_that("ebird_species NA if not in taxonomy", {
expect_equal(ebird_species("Homo sapiens"), NA_character_)
expect_equal(ebird_species("blackburnianwarbler"), NA_character_)
expect_equal(ebird_species("abcd"), NA_character_)
expect_equal(ebird_species(""), NA_character_)
})
test_that("ebird_species return common names", {
species <- c("Blackburnian Warbler", "Poecile atricapillus")
expect_equal(ebird_species(species, type = "common"),
c("Blackburnian Warbler", "Black-capped Chickadee"))
expect_equal(ebird_species("Pityriasis gymnocephala", type = "common"),
"Bornean Bristlehead")
})
test_that("ebird_species return species codes", {
species <- c("Blackburnian Warbler", "Poecile atricapillus")
expect_equal(ebird_species(species, type = "code"), c("bkbwar", "bkcchi"))
expect_equal(ebird_species("Pityriasis gymnocephala", type = "code"),
"borbri1")
})
test_that("ebird_species error for non-character argument", {
expect_error(ebird_species(1:10))
expect_error(ebird_species(TRUE))
})
test_that("ebird_species works for species with non-ascii characters", {
expect_equal(ebird_species("Ruppell's Griffon"), "Gyps rueppelli")
expect_equal(ebird_species("R\u00FCppell's Griffon"), "Gyps rueppelli")
})
test_that("ebird_species handles versions correctly", {
skip_on_cran()
skip_if_offline()
# check that taxonomy api is accessible
e <- tryCatch(get_ebird_taxonomy(2017), error = function(e) e)
if (inherits(e, "error")) {
skip("eBird API inaccessible")
}
expect_equal(ebird_species("Cordillera Azul Antbird"), "Myrmoderus eowilsoni")
expect_equal(ebird_species("Cordillera Azul Antbird",
taxonomy_version = 2017),
"Myrmoderus [undescribed form]")
})
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.