R语言：传入多组日期调用getlightData函数报错求解

错误原因 #

你的getlightData函数仅支持单个日期输入，当传入日期向量（比如beginDates[1:25]是包含25个日期的向量）时，函数内部的文件读取或数据处理逻辑没有做向量化适配，误将整个日期向量当成单个文件路径/参数传入file()或类似文件操作函数，从而触发invalid 'description' argument错误。

解决方案 #

方法1：批量调用原函数（无需修改原函数） #

用循环或映射函数遍历每一组日期，重复调用原本支持单日期的函数：

# 用lapply生成结果列表
results_list <- lapply(1:25, function(i) {
  getlightData(beginDates[i], endDates[i], product="high_low")
})

# 如果结果是结构化数据，转成数据框方便查看
results_df <- do.call(rbind, results_list)

方法2：重写函数原生支持向量输入 #

修改函数内部逻辑，让它直接处理日期向量（需要purrr包辅助，先运行install.packages("purrr")安装）：

library(purrr)

getlightData <- function(begin_dates, end_dates, product="high_low") {
  # 先校验输入长度一致
  if (length(begin_dates) != length(end_dates)) {
    stop("起始日期和结束日期的长度必须匹配！")
  }
  
  # 遍历每一组日期，执行原单日期计算逻辑
  map2_dfr(begin_dates, end_dates, function(b, e) {
    # 这里替换成你原本处理单个日期b、e的代码
    # 示例：计算辐照度并返回带日期的结果行
    irradiance_value <- your_calculation_code(b, e, product)
    data.frame(
      begin_date = b,
      end_date = e,
      irradiance = irradiance_value
    )
  })
}

# 现在可直接传入向量调用
final_results <- getlightData(beginDates[1:25], endDates[1:25], product="high_low")

额外注意事项 #

• 检查beginDates和endDates的类型：用class(beginDates)查看，需是Date或POSIXct类型，若为字符串需先转换：beginDates <- as.Date(beginDates)
• 测试小批量数据：先传入2组日期验证逻辑，再扩大到25组，避免因个别日期文件缺失导致问题

内容的提问来源于stack exchange，提问作者Anna Lisa Mudahy