tests/testthat/tests.crazyfy.R

test_that("NA column leads to error", {
  data(iris)
  iris$allmiss <- NA
  expect_error(crazyfy(iris))
})

test_that("Invalid provided ID leads to error",{
  data(iris)
  iris$invaliID <- c(1,1, 3:(nrow(iris)))
  expect_error(crazyfy(iris,id="invalidID"))
})

Try the stranger package in your browser

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

stranger documentation built on March 18, 2018, 2:01 p.m.