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))
}
這樣應該會把更新到最新日期的檔案，存到你要的資料夾
我想到比較自動化的方式...