gpkg_tables: add error handling for terra::vect() with a non-spatial …

…fallback
brownag · Feb 13, 2024 · a973c8f · a973c8f
1 parent 0f85699
commit a973c8f
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/R/gpkg-util.R b/R/gpkg-util.R
@@ -28,7 +28,14 @@ gpkg_tables.geopackage <- function(x, collect = FALSE, pragma = FALSE) {
   unlist(lapply(names(y), function(z) {
     switch(z, 
            "2d-gridded-coverage" = { sapply(y[[z]]$table_name, function(i) terra::rast(src, i)) },
-           "features" = { sapply(y[[z]]$table_name, function(i) terra::vect(src, proxy = !collect, layer = i)) },
+           "features" = { sapply(y[[z]]$table_name, function(i) {
+             res <- try(terra::vect(src, proxy = !collect, layer = i), silent = TRUE)
+             if (inherits(res, 'try-error')) {
+               message(i, " : ", res[1])
+               res <- .LAZY.FUN(xx, table_name = i)
+             }
+             res
+            }) },
            "attributes" = { sapply(y[[z]]$table_name, function(i) list(.LAZY.FUN(xx, table_name = i))) })
   }), recursive = FALSE)
 }