Memoize R functions

memoize.r

memoize = function (f) {
    force(f)
    cache = new.env()
    function (...) {
        key = capture.output(dput(list(...)))
        if (key %in% ls(cache))
            return(get(key, envir = cache))

        value = f(...)
        assign(key, value, envir = cache)
        value
    }
}

# Usage:

very_expensive_function = memoize(very_expensive_function)

(Totally untested, unadulterated braindump.)