R中Rle对象的滚动平均值

Question

是否有一种方法可以有效地计算Rle类对象的滚动平均值，而不必先将其转换为数字矢量？

例如：

rl <- Rle(c(1,1,1,1,2,2,3,3,2,2))

我想得到：

zoo::rollmean(as.integer(rl), k=3)

，但是这种方法不适用于大向量。 还有其他想法吗？