r - 如何对向量进行分区？

Question

我如何构建一个函数

slice(x, n) 

这将返回一个向量列表，其中每个向量除了最后一个向量的大小为 n，即

slice(letters, 10)

会回来

list(c("a", "b", "c", "d", "e", "f", "g", "h", "i", "j"),
     c("k", "l", "m", "n", "o", "p", "q", "r", "s", "t"),
     c("u", "v", "w", "x", "y", "z"))

?

Answer 1

slice<-function(x,n) {
    N<-length(x);
    lapply(seq(1,N,n),function(i) x[i:min(i+n-1,N)])
}