R/assert-utils.R

Defines functions collapse_comma

collapse_comma <- function(x, truncate_at = 10) {
  if (length(x) > truncate_at) {
    x <- c(x[seq_len(truncate_at)], "...")
  }

  paste(x, collapse = ", ")
}
ErdaradunGaztea/woodendesc documentation built on Feb. 1, 2025, 2:26 a.m.