inst/ignore/tests/test-ubio_id.R

# tests for ubio_id fxn in taxize
context("ubio_id")

out <- ubio_id(namebankID = 2483153)

test_that("ubio_id returns the correct dimensions", {
	expect_that(length(out), equals(5))
	expect_that(dim(out$data), equals(c(1,8)))
	expect_that(dim(out$synonyms), equals(c(7,3)))
	expect_that(dim(out$vernaculars), equals(c(27,5)))
	expect_that(dim(out$cites), equals(c(7,4)))
})

test_that("ubio_id returns the correct class", {
	expect_that(out, is_a("list"))
	expect_that(out$synonyms, is_a("data.frame"))
	expect_that(out$cites, is_a("data.frame"))
})

Try the taxize package in your browser

Any scripts or data that you put into this service are public.

taxize documentation built on Sept. 11, 2024, 6:13 p.m.