Nothing
library(robis)
context("checklist")
family <- "Pectinariidae"
family_taxa_lower_limit <- 10
family_taxa_upper_limit <- 1000
redlist_area <- 21
unknown_aphiaid <- 999999999
test_that("scientificname restricts the checklist by scientificname", {
skip_on_cran()
taxa <- checklist(scientificname = family, verbose = TRUE)
expect_gt(nrow(taxa), family_taxa_lower_limit)
expect_lt(nrow(taxa), family_taxa_upper_limit)
expect_true(all(taxa$family == family))
})
test_that("checklist only returns taxa with IUCN Red List category when redlist = TRUE", {
skip_on_cran()
taxa <- checklist(areaid = redlist_area, redlist = TRUE, verbose = TRUE)
expect_true(all(!is.na(taxa$category)))
})
test_that("checklist for an unknown Aphia ID is empty", {
skip_on_cran()
taxa <- checklist(taxonid = unknown_aphiaid)
expect_true(is.data.frame(taxa))
expect_true(nrow(taxa) == 0)
})
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.