如何正确地使用请求头和API数据请求？

Question

我试图找到使用httr包用R连接Appannie的API的方法(完全没有API连接的经验)。API需要包含来自appannie站点的请求头引用:注册appannie帐户并生成API密钥。将此键添加到请求标题中，如下所示：

授权:持票人的引证结束

我写了这样的代码

query <- "http://api.appannie.com/v1/accounts/1000/sales?break_down=application+dat
&start_date=2012-01-01
&end_date=2012-02-01
&currency=USD
&countries=US
&page_index=1"
getdata<-GET(url=query, add_headers("Authorization: bearer 811b..."))

命令http_status(getdata)显示“客户端错误：(401)未经授权”

Answer 1

您没有正确指定标头。add_headers(...)需要一个命名列表。

library(httr)    # for GET(...)
library(rjson)   # for fromJSON(...)
query <- "https://api.appannie.com/v1/accounts/1000/sales?break_down=application+dat&start_date=2012-01-01&end_date=2012-02-01&currency=USD&countries=US&page_index=1"
getdata<-GET(url=query, add_headers(Authorization="bearer <your api key>"))
fromJSON(content(getdata,type="text"))
# $code
# [1] 403
# 
# $error
# [1] "Invalid connection account"

这个“工作”的意思是，我没有得到401错误。在我的例子中，帐户1000不存在。

关于注释中的http/https问题，http是不精确的，并且在2014-04-01年间将不再被接受，所以您最好开始使用https。