Memoizing wrapper for lapply.
lapplym(X, FUN, ...)
list or vector of inputs
function to apply
additional arguments passed to lapply
list of results.
# NOT RUN {
fs <- function(x) { x <- x[[1]]; print(paste("see", x)); sin(x) }
# should only print "see" twice, not 6 times
lapplym(c(0, 1, 1, 0, 0, 1), fs)
# }
Run the code above in your browser using DataLab