R/handle-wkt.R

In wk: Lightweight Well-Known Geometry Parsing

#' @rdname wk_handle
#' @export
wk_handle.wk_wkt <- function(handleable, handler, ...) {
  handler <- as_wk_handler(handler)
  .Call(
    wk_c_read_wkt,
    list(handleable, TRUE),
    handler
  )
}

#' Test handlers for handling of unknown size vectors
#'
#' @inheritParams wk_handle
#' @export
#'
#' @examples
#' handle_wkt_without_vector_size(wkt(), wk_vector_meta_handler())
#'
handle_wkt_without_vector_size <- function(handleable, handler) {
  handler <- as_wk_handler(handler)
  .Call(
    wk_c_read_wkt,
    list(handleable, FALSE),
    handler
  )
}