如何在rollify中使用percent_rank

Question

我想在滚动窗口中使用percent_rank函数。我的首选是在tibbletime::rollify中使用它，但是其他任何方法也可以使用。

在下面的示例中，我希望使用30天的滚动窗口来重新调整“关闭”列的比例。这是我尝试过并失败的事情：

require(tidyquant)
require(tibbletime)
require(tidyverse)
data("FB")

# This works
mean_roll <- rollify(mean, window = 30)
mutate(FB, mean_close = mean_roll(close))

# This does not work
rescale_roll <- rollify(percent_rank, window = 30)
mutate(FB, rescale_close = rescale_roll(close))

引发以下错误：

Error in mutate_impl(.data, dots) : 
  Column `rescale_close` must be length 1008 (the number of rows) or one, not 29399