如何使用Plumber API传输PDF文件？

install.packages("plumber")

# 导入所需的库
library(plumber)

# 创建Plumber API对象
api <- plumb("pdf_api.R")

# 定义API端点
# 使用@post注解指定HTTP POST请求
# 使用@param注解指定请求参数
# 使用@serializer注解指定响应的内容类型
# 使用@plumber注解指定处理函数
api %>%
  # 上传PDF文件
  # 使用multipart/form-data格式传输文件
  # 使用req$postBody获取文件内容
  # 使用req$files获取文件元数据
  # 可以根据需求进行文件处理和存储
  # 返回上传成功的消息
  plumber::route("/upload_pdf", methods = "POST",
                 handler = function(req, res) {
                   # 获取文件内容
                   pdf_content <- req$postBody
                   # 获取文件元数据
                   pdf_metadata <- req$files
                   # 进行文件处理和存储
                   # ...
                   # 返回上传成功的消息
                   return("PDF文件上传成功")
                 }) %>%
  # 下载PDF文件
  # 使用@get注解指定HTTP GET请求
  # 使用@serializer注解指定响应的内容类型
  # 使用@plumber注解指定处理函数
  plumber::route("/download_pdf", methods = "GET",
                 handler = function(req, res) {
                   # 读取PDF文件
                   pdf_content <- readBin("path/to/pdf/file.pdf", "raw", file.info("path/to/pdf/file.pdf")$size)
                   # 设置响应头
                   res$setHeader("Content-Type", "application/pdf")
                   res$setHeader("Content-Disposition", "attachment; filename=file.pdf")
                   # 返回PDF文件内容
                   return(pdf_content)
                 })

# 运行Plumber API
api$run(port = 8000)

Rscript pdf_api.R

curl -X POST -F "file=@path/to/pdf/file.pdf" http://localhost:8000/upload_pdf

curl -OJ http://localhost:8000/download_pdf