我正在尝试使用以下代码从Yahoo下载数据：
library(quantmod)
getSymbols("WOW", auto.assign=F)
在过去的每一个场合，这对我都起作用，但现在距离小组任务截止日期还有5天，却不行了。
现在我遇到了这个错误：
Error in download.file(paste(yahoo.URL, "s=", Symbols.name, "&a=", from.m, : cannot download all files
In addition: Warning message:
In download.file(paste(yahoo.URL, "s=", Symbols.name, "&a=", from.m, :
URL 'https://ichart.finance.yahoo.com/table.csv?
s=WOW&a=0&b=01&c=2007&d=4&e=17&f=2017&g=d&q=q&y=0&z=WOW&x=.csv': status was
'502 Bad Gateway'
价格历史记录的CSV网址似乎已更改。
旧版： https://chart.finance.yahoo.com/table.csv?s=AAPL&a=2&b=17&c=2017&d=3&e=17&f=2017&g=d&ignore=.csv
新版本附加了一个“crumb”字段，似乎反映用户浏览器中的cookie信息。它似乎是有意阻止价格历史记录的自动下载，并强制查询提供信息以验证Web浏览器中的Cookie。
remotes::install_github("joshuaulrich/quantmod", ref="157_yahoo_502")
# or
devtools::install_github("joshuaulrich/quantmod", ref="157_yahoo_502")
错误：命令失败（1）我对R编程非常新手。这是我到目前为止的代码：library(quantmod)
library(curl)
remotes::install_github("joshuaulrich/quantmod")
# 或者
devtools::install_github("joshuaulrich/quantmod")
getSymbols("WOW", auto.assign = F) - Daniel我一直想知道为什么雅虎会提供数据下载功能，如果他们停止这样做，我将会有多大的困难。幸运的是，Joshua Ulrich提供了帮助。
尽管现在可能已经没有意义，但我编写了一个修复程序，展示了解决下载问题的一种方法。
library(xts)
getSymbols.yahoo.fix <- function (symbol,
from = "2007-01-01",
to = Sys.Date(),
period = c("daily","weekly","monthly"),
envir = globalenv(),
crumb = "YourCrumb",
DLdir = "~/Downloads/") { #1
# build yahoo query
query1 <- paste("https://query1.finance.yahoo.com/v7/finance/download/",symbol,"?",sep="")
fromPosix <- as.numeric(as.POSIXlt(from))
toPosix <- as.numeric(as.POSIXlt(to))
query2 <- paste("period1=", fromPosix, "&period2=", toPosix, sep = "")
interval <- switch(period[1], daily = "1d", weekly = "1wk", monthly = "1mo")
query3 <- paste("&interval=", interval, "&events=history&crumb=", crumb, sep = "")
yahooURL <- paste(query1, query2, query3, sep = "")
#' requires browser to be open
utils::browseURL("https://www.google.com")
#' run the query - downloads the security as a csv file
#' DLdir defaults to download directory in browser preferences
utils::browseURL(yahooURL)
#' wait 500 msec for download to complete - mileage may vary
Sys.sleep(time = 0.5)
yahooCSV <- paste(DLdir, symbol, ".csv", sep = "")
yahooDF <- utils::read.csv(yahooCSV, header = TRUE)
#' -------
#' if you get: Error in file(file, "rt") : cannot open the connection
#' it's because the csv file has not completed downloading
#' try increasing the time for Sys.sleep(time = x)
#' -------
#' delete the csv file
file.remove(yahooCSV)
# convert date as character to date format
yahooDF$Date <- as.Date(yahooDF$Date)
# convert to xts
yahoo.xts <- xts(yahooDF[,-1],order.by=yahooDF$Date)
# assign the xts file to the specified environment
# default is globalenv()
assign(symbol, yahoo.xts, envir = as.environment(envir))
print(symbol)
} #1
您还可以使用getSymbols.yahoo.fix和lapply一起使用，以获取资产数据列表
from <- "2016-04-01"
to <- Sys.Date()
period <- "daily"
envir <- globalenv()
crumb <- "yourCrumb"
DLdir <- "~/Downloads/"
assetList <- c("AAPL", "ADBE", "AMAT")
lapply(assetList, getSymbols.yahoo.fix, from, to, envir = globalenv(), crumb = crumb, DLdir)}
该代码是在Mac OSX 10.11上使用Safari作为默认浏览器的RStudio中编写的。它似乎也可以与Chrome一起使用，但您需要使用Chrome的cookie crumb。我使用了一个cookie阻止器，但必须将finance.yahoo.com列入白名单，以保留cookie供将来的浏览器会话使用。
getSymbols.yahoo.fix可能非常有用。quantmod::getSymbols出于必要性，具有更多内置的选项和异常处理代码。我编写个人工作的代码，因此我经常从软件包函数中提取我需要的那些代码片段。我还没有对getSymbols.yahoo.fix进行基准测试，因为我当然没有GetSymbol的工作版本可供比较。此外，我不能放过进入我的第一个stackoverflow答案的机会。
我也遇到了这个错误。Mrexcel论坛上的用户(jonathanwang003)解释说，新的URL使用Unix时间编码来表示日期。更新后的VBA代码应该是这样的：
qurl = "https://query1.finance.yahoo.com/v7/finance/download/" & Symbol
qurl = qurl & "?period1=" & (StartDate - DateSerial(1970, 1, 1)) * 86400 & _
"&period2=" & (EndDate - DateSerial(1970, 1, 1)) * 86400 & _
"&interval=1d&events=history&crumb=" & **Crumb**
QueryQuote:
With Sheets(Symbol).QueryTables.Add(Connection:="URL;" & qurl, Destination:=Sheets(Symbol).Range("a1"))
.BackgroundQuery = True
.TablesOnlyFromHTML = False
.Refresh BackgroundQuery:=False
.SaveData = True
End With