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/enc documentation built on Jan. 26, 2024, 12:50 a.m.