如何在 R 中发出令牌请求？

Question

尝试获取 API 的访问令牌，以便我可以使用 R 提取数据。我使用的文档有以下说明：

以下 POST 请求显示了 Axon Evidence 令牌请求的格式：

POST /api/oauth2/token HTTP/1.1 
Host: api.evidence.com 
Content-Type: application/x-www-form-urlencoded
grant_type: client_credentials&partner_id={partner ID}&client_id={client ID}&client_secret={client secret}

注意：确保对所有参数值使用 URL 编码形式。客户端密码是 base64 编码的，因此通常以等号 (=) 结尾，必须编码为 %3D。此外，如果您使用手动 REST 客户端进行测试，请确保您知道客户端是否自动执行 URL 编码。如需更多信息，请参阅参考资料。

我正在尝试按照上述说明使用 httr 包请求令牌，但它似乎不起作用。我正在使用：

Token_Response <- POST("https://api.evidence.com/", body = "POST /api/oauth2/token HTTP/1.1
     Host: api.evidence.com 
     Content-Type: application/x-www-form-urlencoded
     grant_type=client_credentials&partner_id={partner ID}&client_id={client ID}&secret={client secret}")

很遗憾，出于安全原因，我无法重现此问题，但我希望这只是我的语法问题。

Answer 1

在使用 HTTR 时，您通常不会直接使用正文或标题。该函数可以为您完成请求的大部分格式化。正确的翻译看起来更像

url <- "https://api.evidence.com/"
partnerId <- "my partner ID"
clientId <- "my client ID"
clientSecret <- "my client secret"

token_Response <- POST(url,
     encode="form",
     body=list(
       grant_type = "client_credentials", 
       partner_id = partnerId,
       client_id = clientId,
       secret = clientSecret
     )
)

为了清楚起见，我使用了一些变量，但如果您愿意，您可以将值直接放入函数调用中。