# NOT RUN {
cache_dir <- tempdir()
a <- 1
b <- 5
# not cached
result <- qcache({a + b},
name="aplusb",
cache_dir = cache_dir,
qsave_params = list(preset="fast"))
# cached
result <- qcache({a + b},
name="aplusb",
cache_dir = cache_dir,
qsave_params = list(preset="fast"))
# clear cached result
qcache(name="aplusb", clear=TRUE, prompt=FALSE, cache_dir = cache_dir)
# }
Run the code above in your browser using DataLab