tests/testthat/test-independent-testing-extend_ae_specific.R

In Merck/metalite.ae: Adverse Events Analysis Using 'metalite'

test <- prepare_ae_specific(
  meta_example(),
  population = "apat",
  observation = "wk12",
  parameter = "any"
)

# `extend_ae_specific_inference()`:
# - Throw error when ci is not a number and 0 >= ci >= 1.
# - The CI matches that from SAS.

test_that("specific_inference throws error when !(0 >= ci >= 1)", {
  expect_error(
    extend_ae_specific_inference(test, ci = 1.1),
    regex = "Please choose a number 0 >= ci >= 1."
  )

  expect_error(
    extend_ae_specific_inference(test, ci = -.1),
    regex = "Please choose a number 0 >= ci >= 1."
  )

  expect_error(
    extend_ae_specific_inference(test, ci = "error"),
    regex = "Please choose a number 0 >= ci >= 1."
  )

  expect_error(
    extend_ae_specific_inference(test, ci = c(.1, .4)),
    regex = "Please choose a number 0 >= ci >= 1."
  )

  expect_silent(ae_spec_inf <- extend_ae_specific_inference(test, ci = .95))

  expect_true(all(c("ci_lower", "ci_upper", "p") %in% names(ae_spec_inf)))
})

# `extend_ae_specific_duration()`:
# - Throw errors when duration_var is not a string and of length == 1.
# - The average duration matches that from SAS.

test_that("specific_duration: duration_var must be string", {
  expect_error(
    extend_ae_specific_duration(test, duration_var = c("ADURN", "ADUR")),
    regexp = "`duration_var` must be a string"
  )

  expect_error(
    extend_ae_specific_duration(test, duration_var = c(1)),
    regexp = "`duration_var` must be a string"
  )

  expect_error(
    extend_ae_specific_duration(test, duration_var = "ADUR"),
    regexp = "does not exist in outdata"
  )

  expect_silent(
    ae_spec_dur <- extend_ae_specific_duration(test, duration_var = "ADURN")
  )

  expect_true(all(c("dur", "dur_se") %in% names(ae_spec_dur)))
})

# `extend_ae_specific_events()`:
# - The average number of events matches that from SAS.

test_that("specific_events: average number of events gives correct list entries", {
  expect_silent(ae_spec_event <- extend_ae_specific_events(test))
  expect_true(all(c("events_avg", "events_se", "events_count") %in% names(ae_spec_event)))
})