R/maxnch.R

In j-martineau/uj: Utilities by JAM

#' @encoding UTF-8
#' @family strings
#' @family counts
#' @family chars
#' @title Length of Longest String
#' @description Gets the number of characters in the longest string in `...`.
#' @param ... An arbitrary number of objects of mode character.
#' @return An integer scalar.
#' @examples
#' max_nch(letters)
#' maxlen("a", "collection", "of", "words")
#' @export
maxnch <- function(...) {
  x <- uj::av(...)
  x <- x[!base::is.na(x)]
  if (base::length(x) == 0) {uj::stopperr("[...] does not contain any non-NA values.")}
  if (!base::is.character(x)) {uj::stopperr("[...] does not contain any character objects.")}
  base::max(base::nchar(x))
}

#' @rdname maxnch
#' @export
maxlen <- maxnch