如何使用R语言获取OAuth 2.0协议RESTful API的访问Token

OAuth 2.0协议包含多种授权模式，以下提供两类最常用场景的可运行代码，你可以根据目标接口实际支持的授权模式适配调整。

前置依赖 #

需要先安装httr（HTTP请求工具）和jsonlite（JSON解析工具）包：

install.packages(c("httr", "jsonlite"))

方案1：密码授权模式（适配你提供的用户名+密码参数场景） #

该模式适合内部可信系统使用，直接传入用户名密码获取令牌，适配你给出的示例参数：

# 加载依赖
library(httr)
library(jsonlite)

# 可直接替换为你的实际参数
token_api_url <- "https://facebook.com/oauth/token" # 替换为实际令牌接口地址
client_id <- "你的客户端ID" # 若接口无客户端要求可删除相关配置
client_secret <- "你的客户端密钥"
username <- "ABC" # 示例用户名
password <- "qwerty" # 示例密码

# 发起令牌请求
resp <- POST(
  url = token_api_url,
  # 若接口不需要客户端鉴权可删除下一行
  authenticate(user = client_id, password = client_secret),
  body = list(
    grant_type = "password",
    username = username,
    password = password,
    scope = "你需要的权限范围" # 接口无要求可删除该字段
  ),
  encode = "form"
)

# 解析返回结果
if (http_type(resp) == "application/json" && http_status(resp)$category == "Success") {
  token_data <- content(resp, as = "parsed")
  access_token <- token_data$access_token
  expires_seconds <- token_data$expires_in
  print(paste0("令牌获取成功，有效期：", expires_seconds, "秒"))
  # 后续业务请求只需在请求头加入 Authorization: paste("Bearer", access_token) 即可
} else {
  print(paste0("请求失败，错误信息：", content(resp, as = "text")))
}

方案2：客户端授权模式（无用户身份要求的场景） #

如果接口仅需要校验客户端身份，不需要传入用户账号密码，可使用该模式：

library(httr)

token_api_url <- "https://facebook.com/oauth/token"
client_id <- "你的客户端ID"
client_secret <- "你的客户端密钥"

resp <- POST(
  url = token_api_url,
  body = list(
    grant_type = "client_credentials",
    client_id = client_id,
    client_secret = client_secret
  ),
  encode = "form"
)

access_token <- content(resp)$access_token

通用注意事项 #

• 敏感信息（密码、客户端密钥、令牌）不要硬编码在代码中，建议存储到系统环境变量，通过Sys.getenv("参数名")读取，避免泄露。
• 若目标接口有自定义鉴权参数要求，直接在POST请求的body列表中补充对应键值对即可。
• 若接口采用需要页面跳转的授权码模式，可直接使用httr包内置的oauth2.0_token()封装方法，按照接口要求配置授权地址、令牌地址、客户端参数即可使用。

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