使用httr2调用Qualtrics API（OAuth2认证）报错求助

问题背景 #

我需要在R中用httr2调用Qualtrics的List Users API端点，已确认凭证配置正确（Qualtrics技术支持验证过，且用同一凭证在Python中能成功调用），但自己编写的R代码始终报错。

错误代码及问题分析 #

我最初尝试的代码如下：

library(httr2)
get_user <- request("https://fra1.qualtrics.com/API/v3/users") |>
  req_oauth_auth_code(client   = oauth_client(id        = "my client id",
                                              secret    = "my client secret",
                                              token_url = "https://fra1.qualtrics.com/oauth2/token"),
                      scope    = "manage:all",
                      token_params = list("grant_type" = "client_credentials"),
                      auth_url = "https://fra1.qualtrics.com/oauth2/auth") |> 
  req_perform()

这段代码试图打开浏览器让我输入Qualtrics登录信息，但实际打开了错误页面。

报错原因 #

核心问题是OAuth流程选择错误：

• req_oauth_auth_code是用于**授权码流程（Authorization Code Flow）**的函数，这个流程需要用户通过浏览器登录授权，适用于第三方应用获取用户数据的场景。
• 但Qualtrics支持团队使用的Python代码，以及Qualtrics官方要求的是客户端凭证流程（Client Credentials Flow）——这个流程不需要用户交互，直接由客户端（你的R脚本）向认证端点提交凭证获取访问令牌，适用于服务端之间的调用。

强行在授权码流程中加入client_credentials的grant_type，完全不符合该流程的规范，因此会跳转到错误页面。

可行代码解析 #

我最终用以下代码成功运行：

get_token <- request("https://fra1.qualtrics.com/oauth2/token") |>
  req_method("POST") |>
  req_body_multipart(grant_type    = "client_credentials",
                     client_id     = "my client id",
                     client_secret = "my client secret",
                     scope         = "manage:all",
                     encode        = "form") |> 
  req_perform()

bearer <- resp_body_json(get_token)$access_token

get_users <- request("https://fra1.qualtrics.com/API/v3/users") |>
  req_method("GET") |>
  req_auth_bearer_token(bearer) |>
  req_perform()

为什么这段代码可行 #

这段代码手动实现了Qualtrics要求的客户端凭证流程：

1. 直接向Qualtrics的token端点发送POST请求，提交grant_type=client_credentials、客户端ID、密钥和权限范围这些必要参数；
2. 解析响应获取访问令牌；
3. 用req_auth_bearer_token将令牌加入请求头，调用List Users API。

整个流程完全匹配Qualtrics的认证要求，没有引入不必要的浏览器交互，因此能成功运行。

更规范的正确实现方式 #

其实httr2提供了专门处理客户端凭证流程的函数req_oauth_client_credentials，不需要手动构造POST请求，代码更简洁且符合最佳实践：

library(httr2)

# 创建OAuth客户端
client <- oauth_client(
  id = "my client id",
  secret = "my client secret",
  token_url = "https://fra1.qualtrics.com/oauth2/token"
)

# 调用API，自动处理凭证流程
get_users <- request("https://fra1.qualtrics.com/API/v3/users") |>
  req_oauth_client_credentials(client, scope = "manage:all") |>
  req_perform()

这个函数会自动帮你完成令牌的获取、缓存（默认会缓存令牌，避免重复请求）和添加到请求头的操作，比手动实现更高效可靠。

内容的提问来源于stack exchange，提问作者deschen