tests/testthat/test-tablong-example-data.R

In R4VN: Health Data Analysis and Publication-Ready Reporting

test_that("tablong documented repeated example data are self-contained", {
  set.seed(12)
  n_subject <- 12
  d <- expand.grid(
    id = seq_len(n_subject),
    visit = factor(c("Baseline", "Month 6"),
                   levels = c("Baseline", "Month 6"))
  )
  d <- d[order(d$id, d$visit), ]
  d$treatment <- factor(
    rep(sample(c("Control", "Intervention"), n_subject, TRUE), each = 2)
  )
  d$score <- rnorm(nrow(d))
  expect_true(all(c("id", "visit", "treatment", "score") %in% names(d)))
})