R/utils.R

Defines functions ellipsis

ellipsis <- function(x) {
  N <- 6
  if (length(x) > N) {
    x <- c(x[seq_len(N)], paste0("... (", length(x), " total)"))
  }
  paste(x, collapse = ", ")
}
krlmlr/utf8 documentation built on Feb. 4, 2024, 10:20 a.m.