don't use geos_geometry_writer() by default for sf objects (#56)

paleolimbot · Nov 6, 2021 · 7d799e7 · 7d799e7
1 parent 29983c6
commit 7d799e7
Showing 1 changed file with 2 additions and 6 deletions.
diff --git a/R/compat-sf.R b/R/compat-sf.R
@@ -2,17 +2,13 @@
 #' @rdname as_geos_geometry
 #' @export
 as_geos_geometry.sfc <- function(x, ...) {
-  geos <- wk::wk_handle(x, geos_geometry_writer())
-  attr(geos, "crs") <- sf::st_crs(x)
-  geos
+  geos_read_wkb(sf::st_as_binary(x), crs = sf::st_crs(x))
 }
 
 #' @rdname as_geos_geometry
 #' @export
 as_geos_geometry.sf <- function(x, ...) {
-  geos <- wk::wk_handle(x, geos_geometry_writer())
-  attr(geos, "crs") <- sf::st_crs(x)
-  geos
+  geos_read_wkb(sf::st_as_binary(sf::st_geometry(x)), crs = sf::st_crs(x))
 }
 
 # dynamically exported