gpkg_read: use internal geopackage constructor to avoid error with pr…

…e-existing GPKG
brownag · Mar 3, 2024 · 336e9bc · 336e9bc
1 parent 37029a1
commit 336e9bc
Showing 1 changed file with 4 additions and 5 deletions.
diff --git a/R/gpkg-io.R b/R/gpkg-io.R
@@ -55,11 +55,10 @@ gpkg_read <- function(x, connect = FALSE, quiet = TRUE) {
 
   res2 <- do.call('c', lapply(res, function(x) x$tables))
   names(res2) <- do.call('c', lapply(res, function(x) names(x$tables)))
-  g <- geopackage(res2, dsn = x)
-  if (connect) {
-    gpkg_connect(g)
-  }
-  g
+
+  obj <- .geopackage(dsn = x, connect = connect)
+  obj$tables <- x
+  obj  
 }
 
 #' Write data to a GeoPackage