[英]How do I POST a JSON formatted request to GET JSON data from a URL in R into the data.frame in a less verbose manner?
我在R中编写了以下代码以开始使用数据请求API。 这是一个普通的Web服务JSON API。
library(RJSONIO)
library(RCurl)
library(httr)
r <- POST("http://api.scb.se/OV0104/v1/doris/sv/ssd/START/PR/PR0101/PR0101A/KPIFastM2",
body = '{ "query": [], "response": { "format": "json" } }')
stop_for_status(r)
a<-content(r, "text", "application/json", encoding="UTF-8")
cat(a, file = "test.json")
x<-fromJSON(file("test.json", "r"))
mydf<-do.call(rbind, lapply(x$data, data.frame))
colnames(mydf)<-c("YearMonth", "CPI")
基本上它使用httr初始化URL的get reuest,然后通过fromJSON将生成的JSON数据转换为R结构。 JSON请求如下所示:
{ "query": [], "response": { "format": "json" } }
事实上,我的代码将数据输入到我想要的数据框架中,但是它非常冗长,我拒绝相信所有这些线条都是实现所需结果所必需的。 想要的结果当然是mydf data.frame。
所以我的问题是:从Web服务获取数据到data.frame的最短和最正确的方法是什么?
干杯,迈克尔
有两个问题。 一个是你没有使用jsonlite :-)另一个是你的JSON源似乎在blob前面加上一个U+FEFF
字节顺序Mark字符使得JSON无效。 RFC7159说:
实现绝不能在JSON文本的开头添加字节顺序标记。 为了互操作性,解析JSON文本的实现可以忽略字节顺序标记的存在,而不是将其视为错误。
所以scb.se没有正确格式化他们的JSON。 无论哪种方式,试试这个:
library(jsonlite)
library(httr)
req <- POST("http://api.scb.se/OV0104/v1/doris/sv/ssd/START/PR/PR0101/PR0101A/KPIFastM2",
body = '{ "query": [], "response": { "format": "json" } }')
stop_for_status(req)
json <- content(req, "text")
# JSON starts with an invalid character:
validate(json)
json <- substring(json, 2)
validate(json)
# Now we can parse
object <- jsonlite::fromJSON(json)
print(objects)
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.