r - 如何在API数据请求中正确使用请求 header ？

Question

我正在尝试找到使用httr包通过R连接到Appannie的API的方法(完全没有API连接的经验)。
API需要包含请求 header
来自appannie网站的引文:
注册一个App Annie帐户并生成一个API key 。
将此 key 添加到您的请求 header 中，如下所示:
授权:不记名''引文

我写的代码看起来像这样

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年4月1日起将不再被接受，因此您不妨开始使用https。