如何将函数应用于R中的连续数据子集？

Question

通常，假设我想将函数foo应用于大小为N的数据集的前k个点，其中k的范围为1到N.

我目前实现这一目标的方法是，例如，

X = runif(50000)
foo = function(Y){sum(Y)}
sapply(1:length(X), function(k){foo(X[1:k])})

但这似乎是hacky和低效。使用

cumsum(X)

快得多;对于原始方法，取0.01s而不是18s。对于通用foo

，是否有更少的hacky和更有效的方法？