tests/testthat/test-import.R

test_that("import (#17)", {
  grid <- expand.grid(
    ext_popped = c(0, 13),
    ext_unpopped = c(0, 4),
    this_popped = c(0, 23),
    this_unpopped = c(0, 14)
  )
  purrr::pwalk(grid, test_import)
})

Try the txtq package in your browser

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

txtq documentation built on March 28, 2021, 1:06 a.m.