a <- function(x) runif(1)
replicate(10, a())
b <- memoise(a)
replicate(10, b())
c <- memoise(function(x) { Sys.sleep(1); runif(1) })
system.time(print(c()))
system.time(print(c()))
forget(c)
system.time(print(c()))
Run the code above in your browser using DataLab