R:覆盖 == 和 %in%

Question

我写了一个 s4 类并覆盖了“==”运算符

setMethod("==",
      signature=c(e1="CAttribute", e2="CAttribute"),
      definition=function(e1, e2)
  {
    return(getName(e1) == getName(e2))
  }
)

如果我现在想测试 CAttribute 的实例是否在 CAttributes 列表中，

a1 <- new("CAttribute", name="a1")
l <- list(new("CAttribute", name="a1"), new("CAttribute", name="a2"))
a1 %in% l

我收到以下错误

Error in match(x, table, nomatch = 0L) : 
  'match' requires vector arguments

我做错了什么，如何测试 s4 对象列表是否出现与某个“==”运算符相关的特定对象？

Answer 1

如果您不覆盖 %in% ，它将使用 %in% 的当前实现您可以在 help 中找到:

"%in%" <- function(x, table) match(x, table, nomatch = 0) > 0

match函数不需要类 CAttribute 的对象这解释了你的错误。