在几天的过程中创建动态列

Question

我想为自开始日期以来的每一天创建动态列。在我的函数中，我将求和直到指定范围结束。到目前为止，这是我一直未尝试的尝试：

Sd <- as.Date('2017-01-01',tz = "GMT")
EndDate <- as.Date('2017-04-02',tz = "GMT")
Ed <- EndDate + 30

LTV1 <- while (Sd < Ed) {

i <- Sd + 1
LTV1 <- LTV %>% group_by(InstallationDate)%>% filter(z < i) %>% 
summarize(Amount = sum(USAmount))
 }
LTV1

因此在此示例中，我将需要30额外的列以反映每个日期的总和。 “ z”是LTV表中包含日期的列。 LTV1函数的输出如下：

 InstallationDate     Amount
 2017-01-01             45
 2017-01-02             55

等等。 理想的结果是：

 InstallationDate     Amount1   Amount2  Amount3 ...........
 2017-01-01             
 2017-01-02             

任何帮助都将不胜感激，因为我被困住了。