From 4e1c215cd26278bd095cb8b4a513ba45896d0122 Mon Sep 17 00:00:00 2001 From: Dewey Dunnington Date: Thu, 10 Oct 2024 21:45:02 -0500 Subject: [PATCH] set the oriented flag when exporting --- R/pkg-sf.R | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/R/pkg-sf.R b/R/pkg-sf.R index c952a7f3..285898a3 100644 --- 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, ...) {