don't overwrite existing (valid) connection objects

brownag · Jun 18, 2023 · efd0221 · efd0221
1 parent 9ab3c62
commit efd0221
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/R/gpkg-connection.R b/R/gpkg-connection.R
@@ -18,8 +18,9 @@ gpkg_connect <- function(x)
 #' @export
 #' @rdname gpkg-connection
 gpkg_connect.geopackage <- function(x) {
-  obj <- as.character(substitute(x))
-  x$env$con <- gpkg_connect(x$dsn)$env$con
+  econ <- x$env$con
+  if (is.null(econ) || !DBI::dbIsValid(econ))
+    x$env$con <- gpkg_connect(x$dsn)$env$con
   x
 }