如何使用水管工部署 R model

Question

我想部署 R model，這有助於使用管道工預測患者葯物管理。 這些腳本毫不費力地自行運行。
我在 4 個設施中有一個本地服務器，我想使用水管工來部署 model。
保存的rds腳本文件model_patients.rds是直接從本地服務器取數據，然后用plumber預測model。

library(plumber)
model <- readr::read_rds("model_patients.rds")
#* @apiTitle Patient Prediction Analysis
#* @get /model
function(predicted,model){
  model <- glm(drug_adminstered~.,family = "binomial", data = train)
   predicted <- predict(model, test, type="response")
  predicted
}

Answer 1

看起來好像您從 R 控制台復制了代碼，其中定義了許多其他變量，但沒有將其適應嚴峻/新鮮的環境。

我看到一些問題：

1. 你在main環境中定義model作為.rds文件的內容，
   ...並將其定義為端點 function 的第二個參數，
   ...然后您立即用glm(..)的返回值覆蓋它。
   對我來說，它將由.rds文件定義，這意味着它不應該是一個 function 參數，也不應該被glm的調用覆蓋。

2. 您調用glm(.., data=train)但您沒有定義train 。 也許這應該是data=model ？ 同樣，您使用test但從未定義它。

3. 不會已經定義了 model 嗎？ 為什么需要調用glm(..)而不是只使用predict(..) ？ 也許我在您的模型部署結構中遺漏了一些東西。

一個完整的猜測，但試試這個：

library(plumber)
model <- readr::read_rds("model_patients.rds")
#* @apiTitle Patient Prediction Analysis
#* @get /model
function(predicted){
  # model <- glm(drug_adminstered~.,family = "binomial", data = train)
  predict(model, predicted, type="response")
}