tests/testthat/test-coxt01.R

In chevron: Standard TLGs for Clinical Trials Reporting

test_that("coxt01 can handle some NA values", {
  proc_data <- dunlin::log_filter(syn_data, PARAMCD == "CRSD", "adtte")
  proc_data <- dunlin::log_filter(proc_data, ARM != "C: Combination", "adsl")
  proc_data$adtte[1:2, c("SEX", "RACE", "CNSR", "AVAL", "AAGE")] <- NA
  expect_silent(res1 <- run(coxt01, proc_data))
  expect_snapshot(cat(export_as_txt(res1, lpp = 100)))
  skip_on_os("windows")
  expect_silent(res2 <- run(coxt01, proc_data, conf_level = .90))
  expect_snapshot(cat(export_as_txt(res2, lpp = 100)))

  res3 <- expect_silent(run(coxt01, proc_data, covariates = c("SEX", "AAGE")))
  expect_snapshot(cat(export_as_txt(res3, lpp = 100)))

  res4 <- expect_silent(run(coxt01, proc_data, covariates = c("SEX", "AAGE"), strata = c("RACE")))
  expect_snapshot(cat(export_as_txt(res4, lpp = 100)))
})

test_that("coxt01 fails on incomlete data", {
  skip_on_os("windows")
  proc_data <- syn_data
  proc_data$adtte <- proc_data$adtte %>%
    mutate(PARAMCD = NULL)
  expect_error(run(coxt01, proc_data))
})