我必须从雅虎财经下载纽约证券交易所所有股票的纽约证券交易所历史收盘价。这是一个工作脚本，下载 600 多只股票的数据需要将近 20 分钟。我有强大的服务器，想并行下载这些。我怎样才能做到这一点？
for(val in stocks$V1) {
url <- paste(paste("http://real-chart.finance.yahoo.com/table.csv?s=", val, sep=""), "&a=11&b=12&c=1980&d=9&e=28&f=2015&g=d&ignore=.csv", sep="")
file_name <- paste(paste("/Users/usdgadiraj/Research/BigData/data/nyse/rscript/", val, sep=""), ".csv", sep="")
download.file(url, file_name)
}