Skipping downloading of JDBC drivers on local system

OHDSI · Jul 27, 2021 · 49a55c1 · 49a55c1
1 parent 9680663
commit 49a55c1
Showing 1 changed file with 15 additions and 12 deletions.
diff --git a/tests/testthat/setup.R b/tests/testthat/setup.R
@@ -1,14 +1,17 @@
 # Download the JDBC drivers used in the tests
 
-oldJarFolder <- Sys.getenv("DATABASECONNECTOR_JAR_FOLDER")
-Sys.setenv("DATABASECONNECTOR_JAR_FOLDER" = tempfile("jdbcDrivers"))
-downloadJdbcDrivers("postgresql")
-downloadJdbcDrivers("sql server")
-downloadJdbcDrivers("oracle")
-downloadJdbcDrivers("redshift")
-downloadJdbcDrivers("spark")
-
-withr::defer({
-  unlink(Sys.getenv("DATABASECONNECTOR_JAR_FOLDER"), recursive = TRUE, force = TRUE)
-  Sys.setenv("DATABASECONNECTOR_JAR_FOLDER" = oldJarFolder)
-}, testthat::teardown_env())
+if (Sys.getenv("DONT_DOWNLOAD_JDBC_DRIVERS", "") != "TRUE") {
+  oldJarFolder <- Sys.getenv("DATABASECONNECTOR_JAR_FOLDER")
+  Sys.setenv("DATABASECONNECTOR_JAR_FOLDER" = tempfile("jdbcDrivers"))
+  dir.create(Sys.getenv("DATABASECONNECTOR_JAR_FOLDER"))
+  downloadJdbcDrivers("postgresql")
+  downloadJdbcDrivers("sql server")
+  downloadJdbcDrivers("oracle")
+  downloadJdbcDrivers("redshift")
+  downloadJdbcDrivers("spark")
+
+  withr::defer({
+    unlink(Sys.getenv("DATABASECONNECTOR_JAR_FOLDER"), recursive = TRUE, force = TRUE)
+    Sys.setenv("DATABASECONNECTOR_JAR_FOLDER" = oldJarFolder)
+  }, testthat::teardown_env())
+}