Question

所有

我是R6的新手。我正在尝试创建一个通过memoise函数缓存的私有对象。背景思想是这个对象将通过计算密集型计算来定义，我希望避免在第一次之后重新运行。

我正在尝试复制以下行为：

library(R6)
library(memoise)
library(digest)

Test <- memoise(function(x){
    rnorm(1e8)
})


Test(1)
Test(1)

您应该观察到第一个Test(1)需要一两秒才能运行，而第二个Test(1)是即时的。

我在R6世界的MWE是：

factory <- R6Class("Test",
                private = list(
                               ..Z = memoise(
                                             function(x){
                                                         rnorm(1e8)
                                                         }
                                             )
                                         ),
                                         active = list(
                                                Z = function(value){
                                                       private$..Z(x=1)
                                                }
                                         )
                                     )

object <- factory$new()

object$Z

这应该显示rnorm(1e8)，但我收到错误：

Error in private$..Z() : object 'cache' not found

快速编辑我的对象让我知道在引擎盖下，.. Z看起来像：

function (...) 
{
    hash <- digest(list(...))
    if (cache$has_key(hash)) {
        cache$get(hash)
    }
    else {
        res <- f(...)
        cache$set(hash, res)
        res
    }
}

所以看起来我没有成功设置memoise。看看上面的内容，我并不是100％清楚memoise如何工作 - 如果我看不到它，缓存如何存在？通常not found错误归因于作用域，private和R6会导致错误。

Answer 1

以下适用于我。您只需要自己实现缓存

library(R6)
library(digest)

factory <- R6Class(
  "Test",
  private = list(
    cache = list(),
    ..Z = function(x){
      hash <- digest(x)
      if (hash %in% names(private$cache)) {
        private$cache[[hash]]
      }
      else {
        res <- rnorm(1e7, x)
        private$cache[[hash]] <- res
        res
      }
    }
  ),
  active = list(
    Z = function(value){
      private$..Z(x=1)
    }
  )
)

object <- factory$new()

## takes a while    
object$Z

## returns "instantly"
object$Z

在R6对象中使用memoise

1 个答案: