1. data_id_all: 指标代码做成的字串
2. d1: 起始搜寻日期
3. d2: 当前日期
4. RKey: 你的Rkey
library(httr)
for(data_id in data_id_all){
file_name <- paste0(data_id, ".csv")
d1 <- "2005-01-01"
d2 <- as.character(Sys.Date())
url <- paste0("https://stock-ai.com/ddl?s=", data_id, "&r=RKey&d1=",
d1, "&d2=", d2)
GET(url, write_disk(file_name, overwrite=TRUE))
}
这样应该会把更新到最新日期的档案，存到你要的资料夹
我想到比较自动化的方式...