使用管道工API的新手,尝试部署R模型,我保存了R模型和测试数据(OneRecord)。从CMD行127.0.0.1:8000运行水管工API,返回错误“ {”错误“:[” 500-内部服务器错误“]}” 并且终端显示错误信息“如果(opts $ show.learner.output)身份为else catch.output,则为simpleError:参数的长度为零”
我的R代码
#plumb_test.R
library(plumber)
#Simple msg command
#* @apiTitle Plumber Example API
#* Echo back the input
#* @param msg The message to echo
#* @get /echo
function(msg=""){
list(msg = paste0("The message is: '", msg, "'"))
}
#My Model
#* @get /run
function(){
rf_prediction <- predict(readRDS("rf_unwrap.rds"), newdata = as.data.frame(readRDS("Test_data.Rds")))
rf_prediction$data
}
水管工的R代码
library(plumber)
pr <- plumb("plumb_test.R")
pr$run(port=8000)
味精工作正常
http://127.0.0.1:8000/echo?msg=hellohru
returns me
{"msg":["The message is: 'hellohru'"]}
但是我的模型返回了
{"error":["500 - Internal server error"]}
in the terminal I am getting
> pr$run(port=8000)
Starting server to listen on port 8000
<simpleError in if (opts$show.learner.output) identity else capture.output: argument is of length zero>
我正在从Windows cmd行运行,如下所示
C:\R\R-3.5.2\bin>r -f plumb_run.R
所有文件都位于bin文件夹中(模型,测试数据,垂直R脚本)
期望预测的输出,不确定错误的含义。
答案 0 :(得分:1)
与水管工一起加载mlr库并在函数中使用print,一切正常
library(plumber)
library(mlr)
#My Model
#* @get /run
function(){
print(predict(readRDS("rf_unwrap.rds"), newdata = as.data.frame(readRDS("Test_data.Rds")))$data)
}