在R语言的接口调用场景中，向服务器提交XML格式文件是常见的需求，httr包提供了完善的HTTP请求封装能力，能够高效实现POST请求发送。本文将从环境准备到完整代码实现，详细讲解使用httr包POST XML文件的全流程。
环境准备与依赖安装
首先需要确保已经安装httr包和用于处理XML的xml2包，如果没有安装可以通过以下命令完成安装：
# 安装依赖包
install.packages("httr")
install.packages("xml2")
安装完成后加载两个包，后续代码会用到这两个包的相关函数：
# 加载包 library(httr) library(xml2)
XML文件准备与内容构造
如果本地已经有现成的XML文件，可以直接读取文件内容；如果需要动态构造XML内容，可以使用xml2包的相关函数生成。以下是两种常见的内容获取方式：
方式1：读取本地XML文件
假设本地有一个名为test_data.xml的文件，内容如下：
<?xml version="1.0" encoding="UTF-8"?> <user_info> <user_id>1001</user_id> <user_name>张三</user_name> <age>25</age> </user_info>
读取该文件内容的代码如下：
# 读取本地XML文件内容 xml_file_path <- "test_data.xml" xml_content <- read_file(xml_file_path)
方式2：动态构造XML内容
如果不需要本地文件，也可以直接在R中构造XML内容：
# 动态构造XML内容
xml_obj <- xml_new_document() %>%
xml_add_child("user_info") %>%
xml_add_child("user_id", "1002") %>%
xml_add_child("user_name", "李四") %>%
xml_add_child("age", "28")
xml_content <- as.character(xml_obj)
使用httr包发送POST请求
httr包的POST()函数是发送POST请求的核心函数，发送XML文件时需要正确配置请求头和请求体，以下是完整的实现代码：
# 目标接口地址，这里使用示例地址，实际使用时替换为真实接口地址
url <- "http://ipipp.com/api/upload_xml"
# 发送POST请求
response <- POST(
url = url,
# 设置请求头，指定内容类型为XML
add_headers("Content-Type" = "application/xml; charset=UTF-8"),
# 将XML内容作为请求体发送
body = xml_content,
# 设置超时时间为10秒
timeout(10)
)
# 查看请求返回的状态码
status_code <- status_code(response)
print(paste("请求状态码：", status_code))
# 查看返回的内容
response_content <- content(response, as = "text", encoding = "UTF-8")
print(paste("返回内容：", response_content))
关键参数说明
上述代码中的几个关键参数需要特别注意：
- add_headers：用于设置请求头，发送XML文件时必须指定
Content-Type为application/xml，如果XML文件编码是UTF-8，需要加上charset=UTF-8，避免中文乱码。 - body：请求体参数，直接传入XML的字符串内容即可，不需要额外做其他格式转换。
- timeout：设置请求超时时间，避免请求长时间无响应占用资源。
常见问题排查
问题1：请求返回415状态码
415状态码表示不支持的媒体类型，通常是Content-Type设置错误，需要确认是否设置为application/xml，不要设置为application/json等其他类型。
问题2：XML内容中文乱码
中文乱码通常是编码不一致导致，需要确保XML内容本身的编码是UTF-8，同时请求头中指定charset=UTF-8，如果读取本地文件，也可以指定读取编码：
# 指定读取编码为UTF-8 xml_content <- read_file(xml_file_path, locale = locale(encoding = "UTF-8"))
问题3：请求返回400错误
400错误通常是请求参数格式错误，需要检查XML内容是否符合接口的XML格式要求，是否有标签未闭合、格式错误等问题，可以先打印xml_content确认内容是否正确。
返回结果解析
如果服务器返回的是XML格式的响应，可以使用xml2包解析返回内容：
# 解析XML格式的返回结果
if (status_code == 200) {
response_xml <- read_xml(response_content)
# 提取返回结果中的message节点内容
result_msg <- xml_text(xml_find_first(response_xml, "//message"))
print(paste("接口返回消息：", result_msg))
}