Google选项链API - RJSON

Question

我想在R中导入google在这个链接中提供的选项链json文件：

http://www.google.com/finance/option_chain?q=NASDAQ:GOOG&output=json

R正确读取json原始数据，但似乎无法正确解码值。这是我的密码：

library(RJSONIO)
library(RCurl)
raw_data <- getURL("http://www.google.com/finance/option_chain?q=NASDAQ:GOOG&output=json")
data <- fromJSON(raw_data)

我已经看过并尝试过其他所有关于这个论点的话题，这里似乎没有什么能奏效的。提前谢谢。

Answer 1

这是因为Google在其无限智慧中没有将键名括在引号中，因此返回的JSON格式不太好。你需要把引号加回去。

library(RJSONIO)
library(RCurl)
raw_data <- getURL("http://www.google.com/finance/option_chain?q=NASDAQ:GOOG&output=json")
raw_data <- gsub("(\\w+)\\s*:",'"\\1":',raw_data)   # enclose keys in double quotes
data <- fromJSON(raw_data)

顺便说一句:包quantmod中有一个quantmod函数，它从Yahoo中提取数据，但它并不总是工作。你也应该知道Google已经宣布终止他们的Finance，所以这在将来不一定有效。

Answer 2

或者甚至比上面的答案更简单，如果性能不是您关心的问题:使用demjson而不是json包，因为它是容错的。

https://pypi.python.org/pypi/demjson/2.2.4