for "Invalid or closed connection" after gpkg_disconnect() #8

brownag · Jun 16, 2023 · a189234 · a189234
1 parent 7ed3444
commit a189234
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/R/gpkg-connection.R b/R/gpkg-connection.R
@@ -71,6 +71,7 @@ gpkg_disconnect.SQLiteConnection <- function(x) {
 #' @param x A _geopackage_ object, a path to a GeoPackage or an _SQLiteConnection_
 #' @return An SQLiteConnection with logical attribute `"disconnect"` indicating whether it should be disconnected after use.
 #' @noRd
+#' @imporFrom DBI dbIsValid
 #' @keywords internal
 .gpkg_connection_from_x <- function(x) {
 
@@ -91,6 +92,10 @@ gpkg_disconnect.SQLiteConnection <- function(x) {
     disconnect <- FALSE
   } else stop('`x` should be `geopackage` object, a path to a GeoPackage or an _SQLiteConnection_')
 
+  if (!DBI::dbIsValid(con)) {
+    con <- NULL
+  }
+
   if (!is.null(con)) { 
     attr(con, 'disconnect') <- disconnect
   }