1 2#' @rdname wk_handle 3#' @export 4wk_handle.wk_wkt <- function(handleable, handler, ...) { 5 handler <- as_wk_handler(handler) 6 wk_cpp_handle_wkt(handleable, handler, reveal_size = TRUE) 7} 8 9#' Test handlers for handling of unknown size vectors 10#' 11#' @inheritParams wk_handle 12#' @export 13#' 14#' @examples 15#' handle_wkt_without_vector_size(wkt(), wk_vector_meta_handler()) 16#' 17handle_wkt_without_vector_size <- function(handleable, handler) { 18 handler <- as_wk_handler(handler) 19 wk_cpp_handle_wkt(handleable, handler, reveal_size = FALSE) 20} 21