actually add the wk_writer() method

NAMESPACE

@@ -58,6 +58,7 @@ S3method(wk_handle,s2_geography)
 S3method(wk_is_geodesic,s2_geography)
 S3method(wk_set_crs,s2_geography)
 S3method(wk_set_geodesic,s2_geography)
+S3method(wk_writer,s2_geography)
 export(as_s2_cell)
 export(as_s2_cell_union)
 export(as_s2_geography)
@@ -200,4 +201,5 @@ importFrom(wk,wk_handle)
 importFrom(wk,wk_is_geodesic)
 importFrom(wk,wk_set_crs)
 importFrom(wk,wk_set_geodesic)
+importFrom(wk,wk_writer)
 useDynLib(s2, .registration = TRUE)

R/wk-utils.R

@@ -54,6 +54,14 @@ s2_geography_writer <- function(oriented = FALSE, check = TRUE,
   )
 }
 
+#' @rdname wk_handle.s2_geography
+#' @importFrom wk wk_writer
+#' @method wk_writer s2_geography
+#' @export
+wk_writer.s2_geography <- function(handleable, ...) {
+  s2_geography_writer()
+}
+
 #' @rdname wk_handle.s2_geography
 #' @export
 s2_trans_point <- function() {

tests/testthat/test-wk-utils.R

@@ -36,6 +36,10 @@ test_that("wk_handle() for s2_geography works for s2_point projection", {
   }
 })
 
+test_that("wk_writer() works for s2_geography()", {
+  expect_s3_class(wk::wk_writer(s2_geography()), "s2_geography_writer")
+})
+
 test_that("the s2_geography_writer() works for example WKT", {
   # nc has some rings that get reordered by this operation
   for (name in setdiff(names(s2_data_example_wkt), "nc")) {