在S4類的插槽上調度S4方法

Question

我想創建一個S4方法'myMethod'，它不僅調用該函數的第一個參數的類，還調用其中一個時隙的值這類的。

例如

myObject的：
@ SLOT1 = 「A」
@ ...

我想myMethod的（myObject的），以回報東西SLOT1 = 「A」 不同，插槽2 = 「B」。

我可以避免硬編碼'myObject'代碼中的'if'嗎？

Answer 1

甲不能完全罕見圖案是使用小的類來提供多分派

setClass("Base") 
A = setClass("A", contains="Base") 
B = setClass("B", contains="Base") 
My = setClass("My", representation(slot1="Base")) 

setGeneric("do", function(x, y, ...) standardGeneric("do")) 
setMethod("do", "My", function(x, y, ...) do(x, x@slot1, ...)) 

然後方法來處理重新調度

setMethod("do", c("My", "A"), function(x, y, ...) "My-A") 
setMethod("do", c("My", "B"), function(x, y, ...) "My-B") 

在動作：

>  My = setClass("My", representation(slot1="Base")) 
>  a = My(slot1=A()) 
>  b = My(slot1=B()) 
>  do(a) 
[1] "My-A" 
>  do(b) 
[1] "My-B"