R/split_vector.R

In vincentarelbundock/vincent: Personal functions

#' Split vector into a list of roughly even chunks
#' https://stackoverflow.com/questions/3318333/split-a-vector-into-chunks/16275428#16275428
#' @export
split_vector <- function(x, n) {
    split(x, cut(seq_along(x), n, labels = FALSE))
}