cache_rds that force recreating the cached file
call %fcache_rds% fname
function call
filename
temp_file <- tempfile(fileext = "rds")
calc_mtcars_cyl <- function(cyl) {
message("calculating")
mtcars[mtcars$cyl == cyl, ]
}
# Call "calc_mtcars_cyl" function
res1 <- calc_mtcars_cyl(6) %cache_rds% temp_file
#> calculating
# Force re-calling the function
res2 <- calc_mtcars_cyl(6) %fcache_rds% temp_file
#> calculating