set the oriented flag when exporting

paleolimbot · Oct 11, 2024 · 4e1c215 · 4e1c215
1 parent 182d6c9
commit 4e1c215
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/R/pkg-sf.R b/R/pkg-sf.R
@@ -290,11 +290,15 @@ st_as_sf.wk_xy <- function(x, ...) {
 }
 
 st_as_sfc.wk_rct <- function(x, ...) {
-  sf::st_set_crs(wk_handle(x, sfc_writer()), sf_crs_from_wk(x))
+  out <- sf::st_set_crs(wk_handle(x, sfc_writer()), sf_crs_from_wk(x))
+  attr(out, "oriented") <- TRUE
+  out
 }
 
 st_as_sfc.wk_crc <- function(x, ...) {
-  sf::st_set_crs(wk_handle(x, sfc_writer()), sf_crs_from_wk(x))
+  out <- sf::st_set_crs(wk_handle(x, sfc_writer()), sf_crs_from_wk(x))
+  attr(out, "oriented") <- TRUE
+  out
 }
 
 st_as_sf.wk_rct <- function(x, ...) {