如何从CMD line R使用plumber API部署模型？

install.packages("plumber")

# 导入所需的R包
library(plumber)

# 定义模型函数
my_model <- function(input) {
  # 模型逻辑
  # ...
  return(output)
}

# 创建plumber对象
api <- plumb("path/to/your/R/script.R")

# 定义API端点
api$register(
  "/predict",
  POST = function(req, res) {
    # 从请求中获取输入数据
    input <- req$postBody
    # 调用模型函数进行预测
    output <- my_model(input)
    # 将预测结果作为响应返回
    res$body <- output
    res$setHeader("Content-Type", "application/json")
  }
)

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

curl -X POST -H "Content-Type: application/json" -d '{"input": "data"}' http://localhost:8000/predict