如何通过R中的日期列表应用API查询？

install.packages("httr")
install.packages("jsonlite")

dates <- seq(as.Date("2022-01-01"), as.Date("2022-01-31"), by = "day")

library(httr)
library(jsonlite)

base_url <- "https://api.example.com/query"  # 替换为实际的API地址

for (date in dates) {
  query_url <- paste0(base_url, "?date=", format(date, "%Y-%m-%d"))
  response <- GET(query_url)
  
  # 检查响应状态码
  if (http_status(response)$status_code == 200) {
    # 解析JSON响应
    data <- fromJSON(content(response, "text"))
    
    # 处理数据
    # ...
  } else {
    # 处理错误
    # ...
  }
}