tests/testthat/test-Table1.R

In lulab.utils: Supporting Functions Maintained by Zhen Lu

library(testthat)
data("melanoma", package = "boot")

test_that("making Table1 in SCI papers works", {
  # Prepare the data
  melanoma2 <- melanoma
  melanoma2$status <- factor(melanoma2$status, 
                             levels = c(2, 1, 3),
                             labels = c("Alive", "Melanoma death", "Non-melanoma death"))
  
  # Call the function
  result <- Table1(
    df = melanoma2,
    xcol = setdiff(names(melanoma2), "status"),
    ycol = "status",
    result_dir = tempdir()
  )
  
  # Check the results
  expect_true(file.exists(file.path(tempdir(),"Table1.xlsx")))
  expect_s3_class(result, "data.frame")
  expect_named(result)
  expect_true(nrow(result) > 0)
  expect_true(ncol(result) > 0)
})