用于在日期之间迭代的 for 循环答案

【问题标题】：For loop for iterating between dates用于在日期之间迭代的 for 循环
【发布时间】：2020-09-20 22:36:43
【问题描述】：

我有以下函数来收集数据并将它们解析为数据帧。

 df <- read_URL('2019-01-15','2019-01-01', token = token)

现在我想在以下日期范围内迭代此函数，并将所有数据帧绑定在一起。日期：

 start_dates <- c(seq(as.Date("2019-01-01"), as.Date("2020-06-01"), by = "month"))
 end_dates <- start_dates + 15

我写了一个 for 循环，但不幸的是它不起作用。我的 for 循环是：

 mytempfile <- tempfile()


for (start_date in start_dates){
  for (end_date in end_dates){
    df <- read_URL(start_date,end_date, token = token)
    data <- rbind(df,mytempfile)
  }
}

另外请注意，该函数是无关紧要的，因为它在尝试 for 循环之前显然可以工作，并且出于保密原因我不包括它。任何帮助将不胜感激

【问题讨论】：

标签： r function loops date iterable

【解决方案1】：

您可以尝试为您的组合创建一个 data.frame，这样您也可以跟踪您的列表：

dates_df = expand.grid(start=start_dates,end=end_dates)

data = lapply(1:nrow(dates_df),function(i){

    read_URL(dates_df$start[i],dates_df$end[i], token = token)
})

data= do.call(rbind,data)

我无法测试此代码，因为您的示例不可重现。如果你能提供一个，那将有很大帮助。

【讨论】：