tests/testthat/test-tidy_bunch.R

dir_path <- system.file("extdata", package = "tidygapminder")

test_that("Output a list of data frame", {
  expect_true(is.list(tidy_bunch(dir_path)))
})

test_that("Output a big data frame", {
  expect_true(is.data.frame(tidy_bunch(dir_path, merge = TRUE)))
})

Try the tidygapminder package in your browser

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

tidygapminder documentation built on Feb. 4, 2020, 9:08 a.m.