我找到了自己问题的答案（见下文）。仍然需要帮助。
在同一个包quantmod中，有一个名为getSymbol.google的选项。
尽管如此，
例如，如果我用它来获取微软的价值，那就可以了。
getSymbols.google（'MSFT'，environment（），src =“google”，from =（Sys.Date（） - 1））
[1]“MSFT”
但是，我无法让它在货币对上运作;
getSymbols.google（“GBPUSD”，environment（），src =“google”，from =（Sys.Date（） - 1））
download.file出错（粘贴（google.URL，“q =”，Symbols.name，“＆amp; startdate =”，： 无法打开网址“http://finance.google.com/finance/historical?q=GBPUSD&startdate=Nov+02,+2017&enddate=Nov+03,+2017&output=csv” 另外：警告信息： 在download.file中（粘贴（google.URL，“q =”，Symbols.name，“＆amp; startdate =”，： 无法打开网址“http://finance.google.com/finance/historical?q=GBPUSD&startdate=Nov+02,+2017&enddate=Nov+03,+2017&output=csv”：HTTP状态为“400 Bad Request”
有什么想法吗？
早上好，
自11月1日起，雅虎的功能 getQuote 出现问题。是一个包含在“quantmod”中的函数，它使用yahoo API来请求信息。
功能描述如下; 从指定来源获取当前股票报价。目前，这仅处理来自雅虎财经的采购报价，但随着时间的推移，它将扩展到其他来源。
在r中，我收到以下错误; “HTTP状态为'403 Forbidden'”
我查看了我的浏览器，错误来自雅虎网页中的以下错误“从指定来源获取当前股票报价。目前这仅处理雅虎财经的采购报价，但它随着时间的推移，将扩展到其他来源。“
是否有人知道如何解决ir，或任何替代函数getQuote（）
以下是来自RStudio
的示例的getQuote（ “AAPL”）
download.file出错（粘贴（“https://finance.yahoo.com/d/quotes.csv?s=”，）： 无法打开网址“https://finance.yahoo.com/d/quotes.csv?s=AAPL&f=d1t1l1c1p2ohgv” 另外：警告信息： 在download.file中（粘贴（“https://finance.yahoo.com/d/quotes.csv?s=”，）： 无法打开网址“https://finance.yahoo.com/d/quotes.csv?s=AAPL&f=d1t1l1c1p2ohgv”：HTTP状态为“403 Forbidden”
由于
答案 0 :(得分：0)
似乎雅虎已经停止了这项服务。任何人都知道雅虎的另一种选择（我不想为此浏览雅虎）
抢劫
答案 1 :(得分：0)
我遇到了同样的问题......这是一个很好的问题，但作为获得日终价值的解决方法，我发现这一点现在可以使用了：
而不是getQuote（）来获取最后价格（这似乎不再适用于雅虎）：
underlying<-"AAPL"
quote.last <-getQuote(underlying)$Last
我使用仍然有效的“getSymbols” - 将其抛入一个新的数据框，然后从中提取出我想要的值：
Hx<-getSymbols(underlying,from=Sys.Date()-1) # allows me to not have to retain the ticker name if I do this across many tickers
quote.last<-as.double(tail(Cl(get(Hx)),1)) # Closing price value from last row of data
rm(list=Hx) # throw away the temporary data frame with quote history
我确信这是一种更优雅的方式，但这就是我的大脑中的一个快速的解决方法，它完成了...遗憾的是，没有得到像BidQuote的Bid和Ask这样的东西确实