我想为[.
编写一个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
答案 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问题。