moving dbisvalid for pool

OHDSI · Aug 12, 2024 · bb822a8 · bb822a8
1 parent 70da1b6
commit bb822a8
Showing 1 changed file with 14 additions and 0 deletions.
diff --git a/R/PooledConnectionHandler.R b/R/PooledConnectionHandler.R
@@ -127,6 +127,20 @@ PooledConnectionHandler <- R6::R6Class(
         self$initConnection()
       }
     },
+
+    #' db Is Valid
+    #' @description
+    #' Masks call to DBI::dbIsValid. Returns False if connection is NULL
+    #' @returns boolean TRUE if connection is valid
+    dbIsValid = function() {
+      browser()
+      if (is.null(self$con)) {
+        return(FALSE)
+      }
+      return(DBI::dbIsValid(dbObj = self$con))
+    },
+
+
     #' initialize pooled db connection
     #' @description
     #' Overrides ConnectionHandler Call