if (FALSE) { # rlang::is_installed("plumber")
library(plumber)
cars_lm <- lm(mpg ~ ., data = mtcars)
v <- vetiver_model(cars_lm, "cars_linear")
glue_spec_summary(v$prototype)
modify_spec <- function(spec) api_spec(spec, v, "/predict")
pr() |> pr_set_api_spec(api = modify_spec)
}
Run the code above in your browser using DataLab