新手使用R语言调用API获取OAuth Token的相关问题咨询

完全可以，你需要的是实现OAuth 2.0客户端凭证（client_credentials）模式的请求流程，操作非常简单。

• 核心依赖为httr包，用于发送标准化HTTP请求，可选安装jsonlite包处理返回的JSON格式响应数据
• 安装命令：

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

1. 提前准备好你已生成的base64编码值，也可以直接在R内完成编码，无需手动转换
2. 按照如下示例代码构造请求并获取Token：

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

# ----------参数配置----------
# 方式1：直接填入你已生成的base64值
base64_value <- "你自己生成的base64编码内容"
# 方式2：如果还未生成base64，直接填入API Key和Secret自动生成
# api_key <- "你的API Key"
# api_secret <- "你的API Secret"
# base64_value <- base64encode(paste0(api_key, ":", api_secret))

# 构造请求头
req_headers <- add_headers(
  Authorization = paste0("Basic ", base64_value),
  `Content-Type` = "application/x-www-form-urlencoded"
)

# 发送POST请求获取Token
response <- POST(
  url = "https://api.destination.com/oauth/token",
  req_headers,
  body = list(grant_type = "client_credentials"),
  encode = "form"
)

# 解析请求结果
if (http_error(response)) {
  # 请求失败时打印错误信息排查问题
  print(paste0("请求失败，错误状态码：", status_code(response)))
  print("错误详情：")
  print(content(response, as = "text"))
} else {
  # 请求成功，提取Token
  token_res <- content(response, as = "parsed")
  access_token <- token_res$access_token
  print("Token获取成功：")
  print(access_token)
  # 后续调用业务接口时，在请求头中加入 `Authorization = paste0("Bearer ", access_token)` 即可
}

• 获取到的Token存在固定有效期，失效后重新执行上述代码获取新Token即可
• 请妥善保管你的API Key、Secret以及生成的Token，避免泄露给无关人员

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