R言語:指定された株式コードの株式データを一括取得する

指定した株式コードの株式データを大量に取得することを目的とし、最終結果はcsvファイルに保存することを要求します.一部の株式コードはないため、取得中にエラーが発生し、ループから飛び出します.ここでの処理はtryCatch関数を使って、一定の待ち時間を設定します.結局、ヤフーから株を下ろすデータはもともと遅いです.

library(quantmod)
library(zoo)
library(xts)
library(TTR)
stock<-c(600000:600100)#             
for(i in stock){
     
  tryCatch({
     
    assign(paste("stock",i,sep=""),getSymbols(paste(i,".ss",sep="",collapse=""),src="yahoo",from='2016-01-01',to='2020-03-20',auto.assign=FALSE))
    write.csv(get(paste("stock",i,sep="")), file=paste("C:/Users/Desktop/60  /",i,".csv"))
  },error=function(e){
     cat("ERROR :",conditionMessage(e),"
")})
   Sys.sleep(10)#       10s
}

#paste関数を使用してパラメータ付き変数を設定する問題と、パラメータ付きファイル名の問題を解決#tryCatch関数の使用参考https://www.cnblogs.com/weibaar/p/4382397.html