# NOT RUN {
tmpDir <- file.path(tempdir(), "reproducible_examples", "clearStubArtifacts")
lapply(c(runif, rnorm), function(f) {
reproducible::Cache(f, 10, cacheRepo = tmpDir)
})
# clear out any stub artifacts
clearStubArtifacts(tmpDir)
# cleanup
clearCache(tmpDir)
unlink(tmpDir, recursive = TRUE)
# }
Run the code above in your browser using DataLab