tests/testthat/test-itis_terms.R

context("itis_terms")

test_that("itis_terms returns the correct class", {
  skip_on_cran()
  vcr::use_cassette("itis_terms", {
    one <- itis_terms(query='bear', verbose=FALSE)
    two <- itis_terms(query='tarweed', "common", verbose=FALSE)
    three <- itis_terms(query='Poa annua', "scientific", verbose=FALSE)
  })

  expect_is(one, "data.frame")
  expect_is(two, "data.frame")
  expect_is(three, "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.