R/bstr_length.R

In araezopsis/bstringr: A package to use a character vector as a biological strings

#' Sequence length in the bstr sequences.
#' @inheritParams class_bstr
#' @export
#' @name length
#' @examples
#' test <- c("ATG", "cc tgAGT2--")
#' bstr_length(test)
#' bstr_length(NA_character_)
#'
bstr_length <-
  function(bstrobj) {
    # as_bstr(bstrobj) %>% stringr::str_length() # str_lengthはちょっと遅い
    as_bstr(bstrobj) %>% nchar(keepNA = TRUE) %>% purrr::set_names(NULL)
  }