R/altrep-rle.R

In vctrs: Vector Helpers

Defines functions chr_rle_is_materialized new_chr_rle chr_rle

chr_rle <- function(...) {
  new_chr_rle(c(...))
}

new_chr_rle <- function(x) {
  stopifnot(is.integer(x), is_named(x))
  .Call(vctrs_altrep_rle_Make, x)
}

chr_rle_is_materialized <- function(x) {
  .Call(vctrs_altrep_rle_is_materialized, x)
}

Try the vctrs package in your browser