ऑब्जेक्ट के विपरीत लेने के लिए एस 4 विधि को कैसे परिभाषित किया जाए?

Question

मान लें कि मेरे पास testClass नामक एक एस 4 कक्षा है। सामग्री इस प्रश्न का उद्देश्य अप्रासंगिक है लेकिन चलिए इसे एक संख्यात्मक मान बनाते हैं।

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

मैं किसी विधि को परिभाषित करना चाहता हूं जो किसी ऑब्जेक्ट के विपरीत लेने जैसा काम करता है। उदाहरण के लिए:

vec <- rnorm(10) 
-vec 

मुझे लगा कि यह पहला तर्क लापता के साथ एक Arith विधि की घोषणा की जाएगी।

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

हालांकि, जब मैं विधि मैं निम्नलिखित त्रुटि मिलती है लागू करने का प्रयास:

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

Error in -tc : invalid argument to unary operator

Answer 1

हा! इसके साथ कुछ और झुकाव के बाद मुझे पता चला कि यह e2 तर्क है जिसे गायब होने की आवश्यकता है। निम्नलिखित कार्य:

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