tests/testthat/test-population_plot.R

In EDCimport: Import Data from EDC Software

skip_on_cran()
skip_on_ci()

test_that("population_plot() works", {
  
  pop_total = c(1:180) %>% setdiff(55) #screen failure, no patient 55
  pop_itt = pop_total %>% setdiff(10) #patient 10 has had the wrong treatment
  pop_safety = pop_total %>% setdiff(c(40,160)) #patients 40 and 160 didn't receive any treatment
  pop_m_itt = pop_total %>% setdiff(c(40,160,80)) #patient 80 had a wrong inclusion criterion
  pop_evaluable = pop_total %>% setdiff(c(40,160,101,147,186)) #patients with no recist evaluation

  l = list(
    "Total population"=pop_total,
    "ITT population"=pop_itt,
    "Safety population"=pop_safety,
    "mITT population"=pop_m_itt,
    "Evaluable population"=pop_evaluable
  )
  
  vdiffr::expect_doppelganger("pop_plot", edc_population_plot(l))
  
  expect_snapshot({
    edc_population_plot(l)$data %>% summary()
    edc_population_plot(l[-1], ref=pop_total)$data %>% summary()
    edc_population_plot(l, ref=1:200)$data %>% summary()
    edc_population_plot(l, id_per_row=60)$data %>% summary()
  })
  
  
  pop_itt[1:10] = NA
  l2 = list(
    "Total population"=pop_total,
    "ITT population"=pop_itt,
    "Safety population"=pop_safety,
    "mITT population"=pop_m_itt,
    "Evaluable population"=pop_evaluable
  )
  edc_population_plot(l2) %>% expect_error(class="edc_population_plot_na_error")
  
})