if (FALSE) { # interactive() || identical(Sys.getenv("IN_PKGDOWN"), "true")
library(pins)
b <- board_temp(versioned = TRUE)
cars_lm <- lm(mpg ~ ., data = mtcars)
v <- vetiver_model(cars_lm, "cars_linear")
vetiver_pin_write(b, v)
vetiver_prepare_docker(b, "cars_linear", path = tempdir())
}
Run the code above in your browser using DataLab