tests/testthat/test-describe_data.R

test_that("describe_data returns a skimr object", {
  nice_data <- data.frame(c1 = c(1, NA, 3), c2 = c(NA, NA, 5), c3 = c("a", "b", NA))
  nice_data_desc <- nice_data %>% describe_data()
  expect_equal(class(nice_data_desc)[1], "skim_df")
})

Try the misc package in your browser

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

misc documentation built on April 8, 2026, 9:10 a.m.