tests/testthat/test-data.R

In rtrek: Data Analysis Relating to Star Trek

d <- st_datasets()

test_that("dataset list returns as expected", {
  expect_is(d, "data.frame")
  expect_equal(dim(d), c(10, 2))
})

test_that("st_books_wiki returns as expected", {
  skip_on_cran()
  skip_on_travis()
  expect_is(st_books_wiki(), "NULL")
})