tests/testthat/helper.R

In CohortAlgebra: Use of Interval Algebra to Create New Cohort(s) from Existing Cohorts

#' utility function to make sure connection is closed after usage
with_dbc_connection <- function(connection, code) {
  on.exit({
    DatabaseConnector::disconnect(connection)
  })
  eval(substitute(code), envir = connection, enclos = parent.frame())
}