如何定义S4方法取对象的反面？

哈!在摆弄了一些之后我发现它是e2需要缺失的论点.以下作品:

#' @export
setMethod("Arith", c(e1="testClass", e2="missing"),
                    function(e1, e2)
                    {
                        op = .Generic[[1]]
                        switch(op,
                            `-` = return(-e1@a)
                        )
                    }
)