嵌套数据帧

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返回值的列表。所以在这种情况下，你会得到一个数据框的列表。这可能是存储输出最合适的方式，但这取决于你想要用它做什么。