tests/testthat/helper.R

In OHDSI/ConceptSetDiagnostics: Concept Set Diagnostics

#' 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())
}