Nothing
#' @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
)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.