Commented out on.exit statements, sanity check

OHDSI · Aug 23, 2023 · d9d9bd8 · d9d9bd8
1 parent 9912cfc
commit d9d9bd8
Showing 1 changed file with 10 additions and 10 deletions.
diff --git a/R/Viewer.R b/R/Viewer.R
@@ -92,11 +92,11 @@ uploadExportedResults <- function(connectionDetails,
   ensureInstalled("ResultModelManager")
   connection <- DatabaseConnector::connect(connectionDetails)
 
-  tryCatch({
-    on.exit(DatabaseConnector::disconnect(connection), add = TRUE, after = TRUE)
-  }, error = function(e) {
-    message(e)
-  })
+  # tryCatch({
+  #   on.exit(DatabaseConnector::disconnect(connection), add = TRUE, after = TRUE)
+  # }, error = function(e) {
+  #   message(e)
+  # })
 
   if (!append) {
     # Create tables
@@ -142,11 +142,11 @@ uploadExportedResults <- function(connectionDetails,
     dropTableIfExists = FALSE,
     createTable = !append
   )
-  tryCatch({
-    on.exit(unlink(databaseIdentifierFile), add = TRUE, after = TRUE)
-  }, error = function(e) {
-    message(e)
-  })
+  # tryCatch({
+  #   on.exit(unlink(databaseIdentifierFile), add = TRUE, after = TRUE)
+  # }, error = function(e) {
+  #   message(e)
+  # })
   # Upload results
   ResultModelManager::uploadResults(
     connection = connection,