library(vetiver)
library(plumber)

v <- blood_final_wf |> 
  vetiver_model(model_name = "blood_transfusion")

pr() |> 
  vetiver_api(vetiver_model = v) |> 
  pr_run(port = 3838)