context("Test taxonomic information functions")
## taxinfo_download
thischeck=function() {
test_that("taxinfo_download generally works as expected", {
skip_on_cran()
tx <- taxinfo_download("rk_family:Baetidae",fields=c("guid","rk_genus","scientificName","rank"))
expect_equal(names(tx),c("guid","genus","scientificName","rank"))
expect_gte(nrow(tx),10) ## expect at least 10 results here
## matching is case-sensitive, so this should return no results
nbn_config(warn_on_empty=TRUE)
## expect warning here
expect_warning(tx <- taxinfo_download("rk_family:baetidae",fields=c("guid","rk_genus","scientificName","rank")))
nbn_config(warn_on_empty=FALSE)
tx <- taxinfo_download("rk_family:baetidae",fields=c("guid","rk_genus","scientificName","rank"))
expect_equal(nrow(tx),0) ## expect no results here
## but names in data.frame should be consistent even when empty
expect_equal(names(tx),c("guid","genus","scientificName","rank"))
## default fields
expect_true(setequal(names(taxinfo_download("rk_genus:Macropus")),c("guid","rank","scientificName","establishmentMeans","genus","family","order","class","phylum","kingdom","datasetName")))
})
}
check_caching(thischeck)
thischeck=function() {
test_that("taxinfo_download fields thingies work", {
skip_on_cran()
f <- nbn_fields("general")
t <- taxinfo_download("rk_family:Baetidae",fields="all")
expect_equal(ncol(t),nrow(f))
})
}
check_caching(thischeck)
thischeck = function() {
test_that("specieslist arguments in NBN4R package match arguments in ALA4R package", {
expect_named(formals(taxinfo_download),names(formals(ALA4R::taxinfo_download)),ignore.order = TRUE)
})
}
check_caching(thischeck)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.