tests/testthat/test-griis.R

test_that("griis", {
  skip_on_cran()

  vcr::use_cassette("griis", {
    aa <- griis(name = "Carpobrotus edulis")
  })

  expect_is(aa, "data.frame")
  expect_named(aa, c('Species', 'Authority', 'Country', 'Kingdom',
                     'Environment.System', 'Origin', 'Evidence.of.Impacts',
                     'Verified', 'Date', 'Source'))
})

Try the originr package in your browser

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

originr documentation built on July 2, 2020, 2:53 a.m.