0

全部，

我是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。

4

1 回答 1

0

以下对我很有效。您只需要自己实现缓存

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
于 2018-02-06T13:09:16.880 回答