tests/testthat/test_taxa.R

In neotoma2: Working with the Neotoma Paleoecology Database

library("testthat")
library("neotoma2")

context("`taxa()` function")
test_that("taxa() returns only unique results", {
  skip_on_cran()
  mydataset <- get_downloads(c(1435, 24238))
  df <- taxa(mydataset)
  testthat::expect_false(any(duplicated(df)))
  testthat::expect_is(df, "data.frame")
})