Question

我想创建一个S4方法＆＃39; myMethod＆＃39;不仅会调度函数的第一个参数的类，还会调度此类的一个插槽的值。

例如

myObject的：
@ slot1中=＆＃34; A＆＃34;
@ ...

我希望myMethod（myObject）为slot1 =＆＃34; A＆＃34;返回不同的内容。和slot2 =＆＃34; B＆＃34;。

我可以避免硬编码“如果＆＃39;在＆＃39; myObject＆＃39;？

的代码中

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"

在S4类的插槽上调度S4方法

1 个答案: