tests/testthat/test-parameterSweep.R

In OHDSI/SelfControlledCohort: Population-Level Estimation Method that Estimates Incidence Rate Comparison of Exposed/Unexposed Time Within an Exposed Cohort

library(testthat)

# Test a large number of parameter combinations on an empty database just to make sure we dont' have
# simple errors in our code.

testAllParams <- function(connectionDetails,
                          cdmDatabaseSchema,
                          cdmVersion) {
  # Open connection once, so it will be reused:
  conn <- DatabaseConnector::connect(connectionDetails)
  on.exit(DatabaseConnector::disconnect(conn), add = TRUE)

  for (outcomeTable in c("condition_era", "cohort")) {
    for (exposureTable in c("drug_era", "cohort")) {
      for (restrictAgeAndYear in c(TRUE, FALSE)) {
        for (addLengthOfExposure in c(TRUE, FALSE)) {
          for (hasFullTimeAtRisk in c(TRUE, FALSE)) {
            for (computeTarDistribution in c(TRUE, FALSE)) {
              if (restrictAgeAndYear) {
                minAge <- "21"
                maxAge <- "65"
                studyStartDate <- "20000101"
                studyEndDate <- "20101231"
              } else {
                minAge <- ""
                maxAge <- ""
                studyStartDate <- ""
                studyEndDate <- ""
              }
              sccResult <- runSelfControlledCohort(connection = conn,
                                                   cdmDatabaseSchema = cdmDatabaseSchema,
                                                   cdmVersion = cdmVersion,
                                                   exposureIds = c(767410, 1314924, 907879),
                                                   exposureTable = exposureTable,
                                                   outcomeIds = 444382,
                                                   outcomeTable = outcomeTable,
                                                   minAge = minAge,
                                                   maxAge = maxAge,
                                                   studyStartDate = studyStartDate,
                                                   studyEndDate = studyEndDate,
                                                   addLengthOfExposureExposed = addLengthOfExposure,
                                                   addLengthOfExposureUnexposed = addLengthOfExposure,
                                                   hasFullTimeAtRisk = hasFullTimeAtRisk,
                                                   computeTarDistribution = computeTarDistribution)
              expect_equal(class(sccResult), "sccResults")
              expect_equal(class(summary(sccResult)), "data.frame")
            }
          }
        }
      }
    }
  }
}

test_that("SCC", {
  testAllParams(connectionDetails, cdmDatabaseSchema, cdmVersion)
})