7

在尝试使用 RI 中的新引用类时，如果您对方法使用“[[ ]]”表示法（X[[“doSomething”]] 而不是 X$doSomething），会发现一些奇怪的行为。这种表示法适用于字段，但我最初认为它不适用于方法，直到我发现如果执行“class(X$doSomething)”，然后可以使用“[[ ]]”。下面的简单示例说明了这一点。

setRefClass("Number", 
  fields = list(
    value = "numeric"
  ),
  methods = list(
    addOne = function() {
      value <<- value + 1
    }
  )
)

X <- new("Number", value = 1)

X[['value']]         # 1

X[["addOne"]]()      # Error: attempt to apply non-function
class(X[["addOne"]]) # NULL

class(X$addOne)      # "refMethodDef"

# Now the following works!
X[["addOne"]]()      # sets X$value = 2
class(X[["addOne"]]) # "refMethodDef"

我遇到这种情况的原因是因为我想将我的对象组合在一个列表中并创建一个“applyMethod”函数，该函数将指定的方法应用于其中的每个对象。因此，我需要将方法指定为字符串。有谁知道我如何实现这一目标？

4

3 回答 3

4

这里有一堂课

.A <-
    setRefClass("A",
                fields=list(x="numeric"),
                methods=list(foo=function() x))

如果我有一个实例a并想使用 '$' 构造对 'foo' 方法的调用，我可以

eval(substitute(a$FUN(), list(FUN="foo")))

因此，我将创建一个类，该类Alist具有类的元素列表A（这可以通过编程方式强制执行），并且该类具有.delegate将任意方法应用于列表的所有元素的方法。然后，我将添加一个委托的方法foo。

.delegate <- function(FUN, ...)
{
    lapply(elts, function(elt, ...) {
        eval(substitute(elt$FUN(...), list(FUN=FUN, ...)))
    })
}

.Alist <-
    setRefClass("Alist",
                fields=list(elts="list"),
                methods=list(
                  initialize = function(...) callSuper(elts=list(...)),
                  .delegate = .delegate,
                  foo=function() .delegate("foo")))

然后使用它

> aList <- .Alist$new(.A$new(x=1), .A$new(x=2))
> aList$foo()
[[1]]
[1] 1

[[2]]
[1] 2
于 2011-04-30T18:03:05.047 回答
2

基本上，R5 ref 类在必要时不会缓存该方法。这可能是一种延迟评估。

当您通过$. 因此，AFAIK，无法通过 [[string]] 访问该方法

但是您可以使用 .dollarForEnvRefClass 找到解决方法，如下所示：

> X <- new("Number", value = 1)
> ls(X@.xData)
[1] "value" # no methods named "addOne" before caching
> X[["addOne"]]
NULL
> methods:::.dollarForEnvRefClass(X, "addOne") # cache it
Class method definition for method addOne()
function () 
{
    value <<- value + 1
}
<environment: 0x116a4aa00>
> ls(X@.xData)
[1] "addOne" "value"  # you can find it
> X$value # value is 1
[1] 1
> X[["addOne"]]() # call the method
> X$value  # the method works
[1] 2

如果您对更多细节感兴趣，请参阅实现：
http ://svn.r-project.org/R/trunk/src/library/methods/R/refClass.R

也许有更直接的方法。

于 2011-04-30T12:22:33.657 回答
0

报告为 r-devel 上的错误，以便 John Chambers 可以修复它。

于 2011-04-30T13:04:43.813 回答