tests/testthat/test-exploreData.R

test_that("PDF output generated", {
  mtcars$vs <- as.factor(mtcars$vs)
  mtcars$am <- as.factor(mtcars$am)
  exploreData(mtcars)
  expect_true("DataSummary.pdf" %in% list.files())
  file.remove("DataSummary.pdf")
})
TalhoukLab/biostatUtil documentation built on April 14, 2025, 4:15 a.m.