尝试在R中下载数据时卡在无限循环中

Question

我正在从quandl下载库存数据并使用trycatch来捕获无法下载数据的库存。在大约800只股票中，有9只发出错误，但是try catch陷入无限循环并且没有为其他股票编写csv文件。我不希望该命令再次尝试下载数据。我如何摆脱循环？

以下是代码：

常量声明

date_Start<-Sys.Date()-1
date_End<-Sys.Date()


#loop for downloading todays's data
stocksData<-lapply(stockName,function(x,start_date,end_date){
  startDate<-date_Start
  endDate<-date_End

  path<- path_Data

  from.dat <- as.Date(startDate, format="%m/%d/%y")
  to.dat <- as.Date(endDate, format="%m/%d/%y")

  stockNameNew <- gsub("[/]","_",x)
  #to remove the "." from stocknames and replace it by "_"

  for(i in stockName){

  downloadData <-tryCatch(Quandl(i,type = "xts",start_date =    from.dat,end_date = to.dat),error=identity) 
    if(inherits(downloadData, "error"))
    cat("Symbol '", i, "' not downloadable!\n", sep = "")


  }


  #downloads data from quandl

  stockData <- as.data.frame(downloadData) 



  write.csv(stockData,fileName)
  #csv file is created
})

输出结果为：

  

符号'NSE / GSPL'无法下载！   符号'NSE / INDHOTEL'无法下载！   符号'NSE / KOTAKGOLD'无法下载！   符号'NSE / GSPL'无法下载！   符号'NSE / INDHOTEL'无法下载！   符号'NSE / KOTAKGOLD'无法下载！

repeated continuously...