tests/testthat/test-test_qual_fun.R

test_that("qual_fun works", {
  res <- nd.tidytuesday::qual_fun(iris)
  
  expect_true( prod(dim(res)) == 15 )  
  expect_true( prod(res) == 0 )
})
ND-open/nd.tidytuesday documentation built on Jan. 23, 2020, 2:36 a.m.