if (FALSE) {
library(pins)
b <- board_s3(bucket = "my-existing-bucket")
cars_lm <- lm(mpg ~ ., data = mtcars)
v <- vetiver_model(cars_lm, "cars_linear")
vetiver_pin_write(b, v)
endpoint <- vetiver_deploy_sagemaker(
board = b,
name = "cars_linear",
instance_type = "ml.t2.medium",
predict_args = list(type = "class", debug = TRUE)
)
}
Run the code above in your browser using DataLab