Tidy Rolling Window

Question

Хотелось бы посмотреть, может ли кто-нибудь представить аккуратную версию следующей проблемы (в идеале в трубе или в чем-то, что не требует цикла).Я пытаюсь взять столбец даты и извлечь из него вложенный список, каждый из которых содержит 24 даты (последовательно).

library(tidyverse) 
library(lubridate) 
df <-read_csv("https://raw.githubusercontent.com/Nicktz/ExDat/master/extdata/findata.csv") %>% gather(Stock, Price, -Date) %>% 
filter(Date <= ymd(20070501)) %>% mutate(Ret = Price / lag(Price) - 1)

DateCol <- df %>% pull(Date) %>% unique

# Roll Window 
Roll_Window <- list()  
Min_Window <- 24

for( i in Min_Window:length(DateCol)){

  Roll_Window[c(i-Min_Window)+1] <-
    list(DateCol[c(i-Min_Window+1):i]) 
}