n我想使用memoization缓存某些昂贵操作的结果,这样就不会一遍又一遍地计算它们。
两个memoise和 R.cache适合我的需要。但是,我发现缓存在调用之间并不可靠。
这是一个演示我看到的问题的示例:
library(memoise)
# Memoisation works: b() is called only once
a <- function(x) runif(1)
replicate(5, a())
b <- memoise(a)
replicate(5, b())
# Memoisation fails: mfn() is called every single time
ProtoTester <- proto(
calc = function(.) {
fn <- function() print(runif(1))
mfn <- memoise(fn)
invisible(mfn())
}
)
replicate(5, ProtoTester$calc())
根据答案更新
根据使用的是持久缓存还是非持久缓存,这个问题可能会有不同的答案。非持久缓存(例如
memoise
)可能需要单个分配,然后下面的答案是一个不错的方法。持久缓存(例如 R.cache
)跨 session 工作,并且对于多个分配应该是健壮的。上述方法适用于 R.cache
.尽管有多项任务,fn
仅使用 R.cache
调用一次.它会被 memoise
调用两次.> ProtoTester <- proto(
+ calc = function(.) {
+ fn <- function() print(runif(1))
+ invisible(memoizedCall(fn))
+ }
+ )
> replicate(5, ProtoTester$calc())
[1] 0.977563
[1] 0.1279641
[1] 0.01358866
[1] 0.9993092
[1] 0.3114813
[1] 0.97756303 0.12796408 0.01358866 0.99930922 0.31148128
> ProtoTester <- proto(
+ calc = function(.) {
+ fn <- function() print(runif(1))
+ invisible(memoizedCall(fn))
+ }
+ )
> replicate(5, ProtoTester$calc())
[1] 0.97756303 0.12796408 0.01358866 0.99930922 0.31148128
我认为
R.cache
有问题的原因是我通过了proto
方法作为 memoizedCall
的函数. proto
方法以 R.cache
的方式绑定(bind)到环境。很难相处。在这种情况下,您需要做的是取消绑定(bind)函数(从实例化方法获取简单函数),然后手动将对象作为第一个参数传递。以下示例显示了它是如何工作的(Report
和 Report$loader
都是 proto
对象:# This will not memoize the call
memoizedCall(Report$loader$download_report)
# This works as intended
memoizedCall(with(Report$loader, download_report), Report$loader)
我很想知道为什么
R.cache
适用于绑定(bind)到环境的正常功能,但因 proto
而失败实例化的方法。
最佳答案
在您的代码中,每次调用该函数时都会重新对其进行内存。
以下应该有效:它只在定义时被内存一次。
ProtoTester <- proto(
calc = {
fn <- function() print(runif(1))
mfn <- memoise(fn)
function(.) mfn()
}
)
replicate(5, ProtoTester$calc())
关于R:环境的缓存/内存,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/11357602/