# NOT RUN {
library(pins)
# define local board with versioning enabled
board_register_local(cache = tempfile(), versions = TRUE)
# cache the mtcars dataset
pin(mtcars, name = "mtcars")
# cache variation of the mtcars dataset
pin(mtcars * 10, name = "mtcars")
# print the mtcars versions
versions <- pin_versions("mtcars") %>% print()
# retrieve the original version
pin_get("mtcars", version = versions$version[1])
# retrieve the variation version
pin_get("mtcars", version = versions$version[2])
# }
Run the code above in your browser using DataLab