tests/testthat/test-dmt01.R

In chevron: Standard TLGs for Clinical Trials Reporting

test_that("dmt01 can handle NA values", {
  proc_data <- syn_data
  proc_data$adsl <- proc_data$adsl %>%
    mutate(
      AAGE = with_label(NA, "Age")
    )
  res <- expect_silent(run(dmt01, proc_data))
  expect_snapshot(cat(export_as_txt(res, lpp = 100)))
})

test_that("dmt01 can handle numeric NA values", {
  skip_on_os("windows")
  proc_data <- syn_data
  proc_data$adsl$AGE[1] <- NA
  res <- expect_silent(run(dmt01, proc_data))
  expect_snapshot(cat(export_as_txt(res, lpp = 100)))
})

test_that("dmt01 returns an error when variables are of the wrong type", {
  skip_on_os("windows")
  proc_data <- syn_data
  proc_data$adsl <- proc_data$adsl %>%
    mutate(
      AGEGR1 = as.character(AGEGR1)
    )

  expect_error(
    run(dmt01, proc_data),
    "`adam_db$adsl$AGEGR1` is not of type numeric, factor, logical",
    fixed = TRUE
  )
})

test_that("dmt01 works as expected with setting default precision", {
  skip_on_os("windows")
  res <- expect_silent(run(dmt01, syn_data, summaryvars = c("RACE", "AAGE", "BBMISI"), precision = list(default = 3)))
  expect_snapshot(cat(export_as_txt(res, lpp = 100)))
})

test_that("dmt01 works as expected with auto precision settings", {
  skip_on_os("windows")
  res <- expect_silent(run(dmt01, syn_data, summaryvars = c("RACE", "AAGE", "BBMISI"), precision = list()))
  expect_snapshot(cat(export_as_txt(res, lpp = 100)))
})

test_that("dmt01 works as expected with auto precision settings and defined precision", {
  skip_on_os("windows")
  res <- expect_silent(run(dmt01, syn_data, summaryvars = c("RACE", "AAGE", "BBMISI"), precision = list(AAGE = 2)))
  expect_snapshot(cat(export_as_txt(res, lpp = 100)))
})

test_that("dmt01 works as expected with auto precision settings and defined precision and default", {
  skip_on_os("windows")
  res <- expect_silent(
    run(dmt01, syn_data, summaryvars = c("RACE", "AAGE", "BBMISI"), precision = list(AAGE = 2, default = 5))
  )
  expect_snapshot(cat(export_as_txt(res, lpp = 100)))
})

test_that("dmt01 works as expected with cutomized stats value", {
  skip_on_os("windows")
  res <- expect_silent(
    run(
      dmt01,
      syn_data,
      summaryvars = c("RACE", "AAGE", "BBMISI"),
      stats = list(AAGE = "mean"),
      precision = list(BBMISI = 2, default = 5)
    )
  )
  expect_snapshot(cat(export_as_txt(res, lpp = 100)))
})

test_that("dmt01 works as expected with empty list as stats value", {
  skip_on_os("windows")
  res <- expect_silent(
    run(
      dmt01,
      syn_data,
      summaryvars = c("RACE", "AAGE", "BBMISI"),
      stats = list(),
      precision = list(BBMISI = 2, default = 5)
    )
  )
  expect_snapshot(cat(export_as_txt(res, lpp = 100)))
})

test_that("dmt01 works as expected with only one summaryvars", {
  skip_on_os("windows")
  res <- expect_silent(
    run(
      dmt01,
      syn_data,
      summaryvars = c("RACE")
    )
  )
  expect_snapshot(cat(export_as_txt(res, lpp = 100)))
})