collapse_n <- function(xs, n, collapse = ", ", pattern = "[%s more]") {
l <- length(xs)
if (l > n) {
end <- sprintf(pattern, length(xs) - n)
xs <- c(xs[seq_len(n)], end)
}
paste0(xs, collapse = collapse)
}
collapse_n(LETTERS, 2)
#> [1] "A, B, [24 more]"
10 days ago