board <- board_temp(versioned = TRUE)
board %>% pin_write(data.frame(x = 1:5), name = "df")
board %>% pin_write(data.frame(x = 2:6), name = "df")
board %>% pin_write(data.frame(x = 3:7), name = "df")
# pin_read() returns the latest version by default
board %>% pin_read("df")
# but you can return earlier versions if needed
board %>% pin_versions("df")
ver <- pin_versions(board, "df")$version[[1]]
board %>% pin_read("df", version = ver)
# delete all versions created more than 30 days ago
board %>% pin_versions_prune("df", days = 30)
Run the code above in your browser using DataLab