tests/testthat/test-as.incadata.data.frame.R

context("as.incadata.data.frame")

suppressWarnings(
  suppressMessages(inc <- as.incadata(incadata::ex_data))
)

test_that("is.incadata", {
  expect_false(is.incadata(iris))
  expect_true(is.incadata(inc))
})

test_that("as.incadata.dataframe", {
  expect_identical(as.incadata(inc), inc)
})

Try the incadata package in your browser

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

incadata documentation built on April 14, 2020, 6:08 p.m.