Remove deprecated usage

NAMESPACE

@@ -382,14 +382,10 @@ export(wk_void)
 export(wk_void_handler)
 export(wk_writer)
 export(wkb)
-export(wkb_problems)
 export(wkb_translate_wkb)
-export(wkb_translate_wkt)
 export(wkb_writer)
 export(wkt)
-export(wkt_format)
 export(wkt_format_handler)
-export(wkt_problems)
 export(wkt_translate_wkb)
 export(wkt_translate_wkt)
 export(wkt_writer)

NEWS.md

@@ -27,6 +27,8 @@
 * Incorporated the geodesic attribute into vctrs methods, data frame
   columns, and bbox/envelope calculation (#124, #125).
 * Fix `as_xy()` for nested data frames and geodesic objects (#126, #128).
+* Remove deprecated `wkb_problems()`, `wkt_problems()`, `wkb_format()`,
+  and `wkt_format()` (#129).
 
 # wk 0.5.0
 

R/deprecated.R

@@ -6,8 +6,6 @@
 #' @param wkb A `list()` of [raw()] vectors, such as that
 #'   returned by `sf::st_as_binary()`.
 #' @param wkt A character vector containing well-known text.
-#' @param max_coords The maximum number of coordinates to include
-#'   in the output.
 #' @param trim Trim unnecessary zeroes in the output?
 #' @param precision The rounding precision to use when writing
 #'   (number of decimal places).
@@ -17,30 +15,6 @@
 #'
 #' @rdname deprecated
 #'
-wkb_format <- function(wkb, max_coords = 3, precision = 6, trim = TRUE) {
-  wk_handle.wk_wkb(wkb, wkt_format_handler(precision, trim, max_coords))
-}
-
-#' @rdname deprecated
-#' @export
-wkt_format <- function(wkt, max_coords = 3, precision = 6, trim = TRUE) {
-  wk_handle.wk_wkt(wkt, wkt_format_handler(precision, trim, max_coords))
-}
-
-#' @rdname deprecated
-#' @export
-wkb_problems <- function(wkb) {
-  wk_handle(new_wk_wkb(unclass(wkb)), wk_problems_handler())
-}
-
-#' @rdname deprecated
-#' @export
-wkt_problems <- function(wkt) {
-  wk_handle(new_wk_wkt(unclass(wkt)), wk_problems_handler())
-}
-
-#' @rdname deprecated
-#' @export
 wkb_translate_wkt <- function(wkb, ..., precision = 16, trim = TRUE) {
   unclass(wk_handle.wk_wkb(wkb, wkt_writer(precision, trim)))
 }

R/wkb.R

@@ -25,7 +25,7 @@ parse_wkb <- function(x, crs = wk_crs_auto(), geodesic = FALSE) {
   crs <- wk_crs_auto_value(x, crs)
   attributes(x) <- NULL
   wkb <- new_wk_wkb(x, crs = crs, geodesic = if (isTRUE(geodesic)) TRUE else NULL)
-  parse_base(wkb, wkb_problems(wkb))
+  parse_base(wkb, wk_problems(wkb))
 }
 
 #' @rdname wkb