如何在R语言中通过指定Rest API生成Token

你可以用R里常用的httr包来实现这个API调用，步骤如下：

1. 安装并加载依赖包 #

如果还没安装httr，先执行安装命令：

install.packages("httr")

加载包：

library(httr)

2. 配置请求参数 #

把你的实际用户名、密码和给定的API地址填入：

# 目标API地址
api_url <- "https://data.xcmdata.org/ISGDE/api/token/v4/get"
# 替换为你的真实用户名
username <- "你的用户名"
# 替换为你的真实密码
password <- "你的密码"

3. 发送POST请求并提取Token #

构造请求头和请求体，发送请求后解析响应内容：

# 发送POST请求
response <- POST(
  url = api_url,
  add_headers(
    "Accept" = "application/json",
    "Content-Type" = "application/json"
  ),
  body = list(username = username, password = password),
  encode = "json"
)

# 检查请求是否成功（HTTP状态码200代表请求正常）
if (http_status(response)$category == "Success") {
  # 解析JSON格式的响应
  token_data <- content(response, "parsed")
  # 提取Token（注意：如果API返回的Token字段名不是"token"，请替换为实际字段名）
  token <- token_data$token
  cat("成功获取Token：", token, "\n")
} else {
  cat("请求失败，状态码：", status_code(response), "\n")
  cat("错误详情：", content(response, "text"), "\n")
}

代码对应curl参数说明： #

• POST() 对应curl里的--request POST
• add_headers() 设置的Accept和Content-Type 对应curl的--header参数
• body用列表传入账号密码，encode="json"会自动将列表转为JSON格式，对应curl的--data参数
• content() 用来解析响应内容，"parsed"会直接转成R可操作的列表/数据框

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