``ReferenceClass`的[.`方法

时间:2014-03-25 10:38:39

标签: r methods eval s4 reference-class

我想为[.编写一个ReferenceClass方法。到目前为止,我有这样的事情:

DT <- data.table(Index=1:5)

MySeries <- setRefClass("MySeries", fields = list(data="data.table"))

setMethod("[","MySeries",function(x, i,j,drop) {
  ii <- substitute(i)
  x$data <- x$data[eval(ii)]
  return(x)
})

S <- MySeries(data=DT)

...但是当我最终调用S[Index>3]时会抛出错误。如何解决上述问题以获得预期结果?

  Index
4:  4
5:  5

1 个答案:

答案 0 :(得分:6)

这与eval(substitute())和S4方法的使用非常相似。这是您感兴趣的通用

> getGeneric("[")
standardGeneric for "[" defined from package "base"

function (x, i, j, ..., drop = TRUE)
standardGeneric("[", .Primitive("["))
<bytecode: 0x42f4fe0>
<environment: 0x3214270>
Methods may be defined for arguments: x, i, j, drop
Use  showMethods("[")  for currently available ones.

您的方法签名与泛型不同(没有'...'且'drop'没有默认值)因此该方法具有嵌套的'.local'函数

> getMethod("[", "MySeries")
Method Definition:

function (x, i, j, ..., drop = TRUE) 
{
    .local <- function (x, i, j, drop) 
    {
        ii <- substitute(i)
        x$data <- x$data[eval(ii)]
        return(x)
    }
    .local(x, i, j, ..., drop)
}

Signatures:
        x         
target  "MySeries"
defined "MySeries"

subsitute(i)不是您认为的那样。相反,编写一个匹配通用签名

的方法
setMethod("[", "MySeries", function(x, i, j, ..., drop=TRUE) {
    x$data <- x$data[eval(substitute(i))]
    x
})

嵌套函数是eval(substitute())范例的一般问题,而不仅仅是S4方法的定义;请参阅this问题。