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