deffered frame to one level

OHDSI · Jul 31, 2024 · 5cc0090 · 5cc0090
1 parent 1fb0f18
commit 5cc0090
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/PooledConnectionHandler.R b/R/PooledConnectionHandler.R
@@ -135,7 +135,7 @@ PooledConnectionHandler <- R6::R6Class(
     #' Returns a connection from the pool
     #' When the desired frame exits, the connection will be returned to the pool
     #' @param .deferedFrame  defaults to the parent frame of the calling block.
-    getConnection = function(.deferedFrame = parent.frame(n = 2)) {
+    getConnection = function(.deferedFrame = parent.frame(n = 1)) {
       conn <- pool::poolCheckout(super$getConnection())
       withr::defer(pool::poolReturn(conn), envir = .deferedFrame)
       return(conn)