如何使用 httr 请求 API 令牌?

How do I request an API token with httr?

我正在使用 httr 查询 Open Targets API

我收到了我的 API 凭据(app_name 和秘密),我现在正尝试通过翻译为 Python:[=16 提供的说明来请求令牌=]

import requests  
API='https://www.targetvalidation.org/api/latest/'

jwt = requests.get(API + 'public/auth/request_token',  
                     params={'app_name':<appname>,'secret':<secret>})

print(jwt.json())  

这是我用 R 和 httr 尝试的结果:

library(httr)
app_name <- "myappname"
secret <- "mysecret"
token <-
 GET("https://www.targetvalidation.org/api/latest/public/auth/request_token", app_name = app_name, secret = secret)
token <- GET("https://www.targetvalidation.org/api/latest/public/auth/request_token", add_headers(app_name = app_name, secret = secret))
token <- GET("https://www.targetvalidation.org/api/latest/public/auth/request_token", config = list(app_name = app_name, secret = secret))

# In all cases, this is what I get
token
# Response [https://www.targetvalidation.org/api/latest/public/auth/request_token]
#  Date: 2017-04-24 08:24
#  Status: 400
#  Content-Type: application/json
#  Size: 60 B
# {"message": {"app_name": "app name [appname] is required"}}

请求此令牌的正确 httr 语法是什么?

谢谢!

您必须将参数作为 query 传递,如 httr quickstart:

中所述
token <- 
GET("https://www.targetvalidation.org/api/latest/public/auth/request_token", 
 query=list(app_name = app_name, secret = secret)
)