OMOP/tests/setup.R

13 lines
506 B
R

# Download the JDBC drivers used in the tests
oldJarFolder <- Sys.getenv("DATABASECONNECTOR_JAR_FOLDER")
Sys.setenv("DATABASECONNECTOR_JAR_FOLDER" = file.path(tempdir(check = TRUE), "drivers"))
DatabaseConnector::downloadJdbcDrivers("postgresql")
# downloadJdbcDrivers("sql server")
# downloadJdbcDrivers("oracle")
withr::defer({
unlink(Sys.getenv("DATABASECONNECTOR_JAR_FOLDER"), recursive = TRUE, force = TRUE)
Sys.setenv("DATABASECONNECTOR_JAR_FOLDER" = oldJarFolder)
}, testthat::teardown_env())