如何将Python requests.post请求转换为R httr包的POST请求

核心问题原因 #

原Python代码中使用requests.post的data参数提交账号密码，本质是发送application/x-www-form-urlencoded格式的表单请求，你之前的三次尝试均没有对齐该报文格式，导致服务器无法识别到username参数：

• 尝试1错误使用authenticate()走Basic Auth认证逻辑，和原请求将账号密码放在表单字段的实现完全不符
• 尝试2将参数封装为JSON且额外套了data外层结构，同时指定了表单类型的Content-Type，报文格式混乱，服务器无法正常解析参数
• 尝试3传入JSON格式字符串，和接口要求的表单格式不匹配，且JSON串存在语法错误（password字段值末尾漏写双引号）

正确实现代码 #

# 加载httr包
library(httr)

# 发送表单格式POST请求
response <- POST(
  url = "https://feed-dev.ihsmarkit.com/apikey",
  body = list(
    username = "markit/resellers/API_OPS/accounts/demo.dv",
    password = "Example@N6"
  ),
  encode = "form"
)

# 打印请求状态，和原Python代码逻辑对齐
print(paste("POST /apikey", status_code(response), http_status(response)$reason))

# 提取返回的apikey
apikey <- content(response, as = "text")
print(apikey)

实现说明 #

• encode = "form"参数会让httr自动将body中的列表转换为application/x-www-form-urlencoded格式的表单数据，和原Python requests.post的data参数行为完全一致
• 不需要手动设置Content-Type请求头，httr会根据encode参数自动补全
• 直接将username和password作为一级键放在body列表中，和原Python的参数结构完全匹配
• 如果接口要求指定返回格式，可在POST参数中新增accept("application/json")即可，无需手动配置请求头

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