Nesnenin tersini almak için S4 yöntemi nasıl tanımlanır?

Question

Diyelim ki testClass adında bir S4 sınıfına sahibim. İçerik, bu sorunun amacıyla alakasızdır, ancak sayısal bir değer içermesini sağlayalım.

#' An S4 class that stores a list. 
#' @export 
setClass("testClass", 
       representation(a="numeric")) 

Nesnenin karşısını almak gibi çalışan bir yöntem tanımlamak istiyorum. Örneğin:

vec <- rnorm(10) 
-vec 

bu ilk argüman eksik olan bir Arith yöntem bildirerek olacağını düşündük.

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

Ancak, aşağıdaki hatayı alıyorum yöntemi uygulamak çalıştığınızda:

tc <- new("testClass", a=2) 
-tc 

Error in -tc : invalid argument to unary operator

Answer 1

Hah! Onunla biraz daha uğraştıktan sonra eksik olması gereken e2 argümanı olduğunu keşfettim. Aşağıdaki çalışmalar:

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