tests/testthat/test-mod_indvExp_fct_buildEvents.R

In Biogen-Inc/tidyCDISC: Quick Table Generation & Exploratory Analyses on ADaM-Ish Datasets

context("Module: Indvidual Explorer 'Build Events' function")


# Function returns a Data frame standardized to include events from vaious OCCDs
# files
filenames <- c("adsl")
# filenames <- c("adsl","adae")
named_list <- setNames(filenames, toupper(filenames))
datafile <- purrr::map(.x = named_list, function(x) eval(as.name(tolower(x))) )



test_that("build_events fun", {
  # nrow should never change
  expect_equal(nrow(
    build_events(input_checkbox = c("DS")
               , input_apply_filter = FALSE
               , my_usubjid = datafile$ADSL$USUBJID[1]
               , my_loaded_adams = names(named_list)
               , my_datafile = datafile
               , my_filtered_dat = datafile$ADSL
               )
    ),
    4
  )
  # start should be class date & end should be NA
  expect_equal(class(
    build_events(input_checkbox = c("DS")
               , input_apply_filter = FALSE
               , my_usubjid = datafile$ADSL$USUBJID[1]
               , my_loaded_adams = names(named_list)
               , my_datafile = datafile 
               , my_filtered_dat = datafile$ADSL)$START
  ),
  "Date"
  )
  expect_equal(is.na(
    build_events(input_checkbox = c("DS")
               , input_apply_filter = FALSE
               , my_usubjid = datafile$ADSL$USUBJID[1]
               , my_loaded_adams = names(named_list)
               , my_datafile = datafile
               , my_filtered_dat = datafile$ADSL)$END
  ),
  c(TRUE, TRUE, FALSE, TRUE)
  )
  # 
  expect_equal(unique(
    build_events(input_checkbox = c("DS")
               , input_apply_filter = FALSE
               , my_usubjid = datafile$ADSL$USUBJID[1]
               , my_loaded_adams = names(named_list)
               , my_datafile = datafile
               , my_filtered_dat = datafile$ADSL)$EVENTTYP
  ),
  "Milestones"
  )
  expect_equal(colnames(
    build_events(input_checkbox = c("DS")
               , input_apply_filter = FALSE
               , my_usubjid = datafile$ADSL$USUBJID[1]
               , my_loaded_adams = names(named_list)
               , my_datafile = datafile
               , my_filtered_dat = datafile$ADSL)
  ),
  c( "START", "DECODE", "EVENTTYP", "DOMAIN", "END", "tab_st", "tab_en")
  )
})