Создание динамических столбцов в течение дня

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             

Любая помощь будет высоко ценится, так как я застрял.