if (FALSE) {
rp_path <- file.path(tempdir(), "example_repo")
rp <- repo_open(rp_path, TRUE)
tempdata <- runif(10)
rp$stash("tempdata")
rp$print(all=TRUE)
rp$stashclear(TRUE)
## wiping temporary repo
unlink(rp_path, TRUE)
}
Run the code above in your browser using DataLab