如何捕獲while循環的結果到數據幀

Question

我有此代碼

payment_date <- Sys.Date() -1 
while(payment_date < Sys.Date() + 30) { 
    payment_date <- payment_date + 1; 
    print(payment_date) 
} 

而這個輸出：

[1] 「2017年8月7日」
。 ..
[1]「2017年9月6日」

有誰知道我怎樣才能得到這些30行到數據幀？

Answer 1

我可以這樣做。

paydates <- character(30) 
i <- 0 

payment_date <- Sys.Date() -1 
while(payment_date < Sys.Date() + 30) { 
    payment_date <- payment_date + 1 
    print(payment_date) 
    i <- i + 1 
    paydates[i] <- payment_date 
} 

paydates <- as.Date(paydates) 

然後，將得到的矢量paydates作爲列中的df。

result <- data.frame(paydates) 

請注意，如果您的實際使用情況是這樣的簡單，更好的做法是簡單地做

payment_date <- Sys.Date() + (-1:29)