データをスクラップしている間に「毎日のダウンロード制限を超えて」パスする方法

Question

私は過去の在庫データベースで動作する予測ツールを構築しています。 https://stooq.pl

私のRコードは正常に動作しますが、ダウンロード制限をバイパスする方法がわかりません（問題は450以上のダウンロードが必要です〜450）。怒鳴るコード：

stock<-c("06n", "08n", "11b", "1at", "4fm", "aal", "aat", "aba", "abc", "abe", "abm", "abs", "acg", "acp", "act", "adv", "ago", "agt", "ahl", "alc", "ali", "all", "alm", "alr", "amb", "amc", "aml", "ape", "apl", "apn", "apr", "apt", "arc", "arh", "arr","06n", "08n", "11b", "1at", "4fm", "aal", "aat", "aba", "abc", "abe", "abm", "abs", "acg", "acp", "act", "adv", "ago", "agt", "ahl", "alc", "ali", "all", "alm", "alr", "amb", "amc", "aml", "ape", "apl", "apn", "apr", "apt", "arc", "arh", "arr","06n", "08n", "11b", "1at", "4fm", "aal", "aat", "aba", "abc", "abe", "abm", "abs", "acg", "acp", "act", "adv", "ago", "agt", "ahl", "alc", "ali", "all", "alm", "alr", "amb", "amc", "aml", "ape", "apl", "apn", "apr", "apt", "arc", "arh", "arr") #example 
Dane<- list() 
i=1 
for(c in stock){ 
    Dane[[i]]<-read.csv(url(paste("https://stooq.pl/q/d/l/?s=",c,"&i=d",sep=""))) 
    i=i+1 
} 

後〜このエラーが表示されます40のダウンロード： [1] Przekroczony.dzienny.limit.wywolan（あなたがダウンロードの値幅制限を超えている） - それは本当のエラー、プログラムが内部に、データなしでのみ、このメッセージをファイルは廃棄されていません。

このエラーを回避する方法はありますか？私は、私が必要とするデータをダウンロードできる別のウェブページ（私には何かがあるかどうかわからない）を知らない。

Answer 1

あなたのリンクが機能しませんでした。とにかく、これを見てください。

http://investexcel.net/multiple-stock-quote-downloader-for-excel/

明らかにそれは、Excel、いないRのですが、それは素晴らしい仕事をしていません。さらに、このようなものを試すことができます。

codes <- c("MSFT","SBUX","S","AAPL","ADT") 
urls <- paste0("https://www.google.com/finance/historical?q=",codes,"&output=csv") 
paths <- paste0(codes,"csv") 
missing <- !(paths %in% dir(".", full.name = TRUE)) 
missing 

# simple error handling in case file doesn't exists 
downloadFile <- function(url, path, ...) { 
# remove file if exists already 
if(file.exists(path)) file.remove(path) 
# download file 
tryCatch(
download.file(url, path, ...), error = function(c) { 
# remove file if error 
if(file.exists(path)) file.remove(path) 
# create error message 
c$message <- paste(substr(path, 1, 4),"failed") 
message(c$message) 
} 
) 
} 
# wrapper of mapply 
Map(downloadFile, urls[missing], paths[missing])