嵌套數據幀

Question

我有一個函數包裝RODBC :: sqlQuery需要一個開始&結束日期並返回5列，每次調用大約100萬行。我需要遍歷列表中約60個日期列表中存儲函數的結果數據幀。

我想知道的是：

1. 如何在 適用風格時尚傳遞開始和結束日期函數的自變量
2. 如何存儲所產生的數據幀整齊（如日期| | data.frame.pointer |表）

下面是一些代碼：

get.data <- function(date.start, date.end) { ... } 
date.range <- seq(as.Date("2009-01-01"), Sys.Date(), by="1 month") 

和輸出示例：

get.data(date.start="2009-01-01", date.end='2009-02-01') 
       date country oId eId  pId 
    1 2009-01-01 Australia 12345 12345  12345 
    2   ...  ... ... ...  ... 

謝謝您的幫助。我一直在試圖弄清楚如何做這個幾個小時無濟於事。

Answer 1

你想要的東西，mapply會做的伎倆：

n <- length(date.range) 
mapply(get.data, date.range[-n], date.range[-1]) 

這將返回其元素是給個體get.data返回值的列表。所以在這種情況下，你會得到一個數據框的列表。這可能是存儲輸出最合適的方式，但這取決於你想要用它做什麼。