将 curl OAuth2 令牌请求转换为 httr

Question

我正在尝试使用 r 和 httr 访问域。 我可以使用 API 密钥来实现这一点，但不能使用 OAuth2

文档表明：

通过客户端凭据获取访问令牌使用您的 client_id 和 client_secret 以及您需要的范围列表向https://auth.domain.com.au/v1/connect/token端点发出 POST 请求。 有关每个端点所需的范围列表，请参阅 API 参考。 尝试使用未包含在您的计划中的 scope 将导致 400 invalid_scope 错误。 此请求必须使用基本身份验证进行身份验证，其中 client_id 和 client_secret 分别对应于用户名和密码。

https://developer.domain.com.au/docs/v2/authentication/oauth/client-credentials-grant

curl 的实现很简单：

curl -X POST -u 'clientid:secret' -H "Content-Type: application/x-www-form-urlencoded" -d 'grant_type=client_credentials&scope=api_listings_read%20api_agencies_read' 'https://auth.domain.com.au/v1/connect/token'

它返回令牌而不进行任何重定向。

但是，我无法将其转换为等效的 httr POST 请求以获取令牌。 我目前拥有的是：

oep <- oauth_endpoint(base_url = "https://auth.domain.com.au/v1/connect/token", 
                      request = NULL, 
                      access = "access_token" )

myapp <- oauth_app("domain",
     key = "client_id_here",
     # The secret isn't secrete. A user still has to authenticate when redirected.
     secret = "secret_here"
  )

# Retrieve the token
token <- oauth2.0_token(oep, 
                    myapp, 
                    scope = "api_listings_read")

这不必要地重定向到一个未知页面，我关闭该页面，然后返回到我按 Escape 退出的控制台。

我正在审查在 R 中将 cURL 转换为 httr，但到目前为止还没有让它工作的运气。

任何帮助将非常感激。

Answer 1

我解决了这个问题。 似乎最简单的解决方案是将所有内容都包含在正文中

r <- POST("https://auth.domain.com.au/v1/connect/token",
          config = list(),
          body = list(
            grant_type="client_credentials",
            client_id="myclientid",
            client_secret="mysecret",
            scope="api_suburbperformance_read"
          ),
          encode = "form"
)
warn_for_status(r)          
content(r)

$access_token
[1] "my_requested_token"

$expires_in
[1] 43200

$token_type
[1] "Bearer"

tok <- content(r)$access_token

rg <- GET("https://api.domain.com.au/v2/suburbPerformanceStatistics/NSW/Pyrmont/2009",
          add_headers("Content-Type"="application/x-www-form-urlencoded",
                      Accept="text/plain",
                      "Authorization"=paste("Bearer", tok)))

warn_for_status(rg)


content(rg)

$header
$header$suburb
[1] "Pyrmont"

$header$state
[1] "NSW"

$header$propertyCategory
[1] "House"


$series
$series$seriesInfo
$series$seriesInfo[[1]]
$series$seriesInfo[[1]]$year
[1] 2020

$series$seriesInfo[[1]]$month
[1] 2
 
etc. etc.

其中form是在 header 中包含Content-Type: application/x-www-form-urlencoded的简写。

通过转到端点文档https://developer.domain.com.au/docs/v2/apis/pkg_properties_locations/references/suburbperformance_get_name和以下内容，我发现Accept="text/plain"应该包含在 get 请求中“试试看”说明，以便我可以查看curl命令结构（注意下面命令的 -H 部分）。

curl -X GET "https://api.domain.com.au/v2/suburbPerformanceStatistics/NSW/Pyrmont/2009?bedrooms=3&startingPeriodRelativeToCurrent=1&totalPeriods=4" -H "accept: text/plain" -H "Authorization: Bearer my_requested_token"

顺便说一句，作为使用httr的初学者，我将评论说 api 对于常规或常见用例之外的任何情况似乎都没有特别的帮助。 它在从用户那里抽象出低层次的细节方面走得很远。 处理诸如此类的非标准案例的小插曲将 go 提供帮助。 尽管如此，我承认我的评论可能只是来自于不得不花费几个小时来弄清楚如何实施应该是一个微不足道的简单过程的挫败感。

我将把它留在一个未答复的 state 中几天，看看是否有其他人可以提出更好的替代方案或提供一些额外的信息。