# NOT RUN {
recacher <- make_recacher(make_local_cacher())
m <- iris %>>% summary %>% recacher
# load the data from a local file
.single_value(m)
recacher <- make_recacher(memory_cache)
m <- iris %>>% summary %>% recacher
# load the data from memory
.single_value(m)
# }
# NOT RUN {
add1 <- function(x) x+1
add2 <- function(x) x+2
add3 <- function(x) x+3
cc <- make_recacher(make_local_cacher())
3 %>>% add1 %>% cc %>>% add2 %>>% add3 -> m
m
# }
Run the code above in your browser using DataLab