recompute bounding box for single postporcess

R-ArcGIS · Nov 6, 2023 · 4d95bec · 4d95bec
1 parent 25bbfeb
commit 4d95bec
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/R/post-process.R b/R/post-process.R
@@ -36,7 +36,11 @@ post_process_pbf <- function(x, use_sf = TRUE) {
   if (is.data.frame(x)) {
     x
   } else if (is.list(x) && !is.null(names(x))) {
-    post_process_single(x, use_sf)
+    x <- post_process_single(x, use_sf)
+    if (use_sf) {
+      x[[attr(x, "sf_column")]] <- sf::st_sfc(x[[attr(x, "sf_column")]])
+    }
+    x
   } else if (is.list(x) && is.null(names(x))) {
     post_process_list(x, use_sf)
   } else {