如何让 S3 方法与 S4 对象一起使用？

Question

我正在编写一个 S3 方法，我想使用它来处理任何 R 对象，包括 S4 对象。

我不明白的第一件事是 S4 类似乎不是从 S4 基类派生的，因此给定 f <- function(x) UseMethod("f") 我可以'只需声明一个 f.S4 调度方法并让它获取所有 S4 对象。 （尽管如果您unclass一个S4对象，它似乎确实被赋予了S4类。）我应该如何管理调度？

处理这些 S4 对象的最简单方法似乎是将它们转换为列表。不幸的是，as.list 抛出一个错误（“没有方法可以将此 S4 类强制为向量”）。

这是我的测试 S4 对象：

library(gWidgetstcltk)
win <- gwindow()

methods 包中的函数 S3Part 和 S3Class 看起来很有前途，但是当我使用它们时，它们都会抛出错误获胜。所以，问题 2 是：是否有将 S4 对象转换为列表的通用方法？

Answer 1

S4是一个超类（虚拟类，无论如何，请有人说出正确的名称），不能直接使用调度。顺便说一句，S3 也是如此。您可以像处理 S3 类一样对 S4 类进行 S3 调度。顺便说一句，如果没有指定任何内容，那么在 S4 对象上调用 myfun 将只会导致 .default 函数。 ：

myfun <- function(object, ...) UseMethod("myfun")

myfun.default <- function(object,...){
    cat("default method.\n")
    print(object)
}

myfun.gWindow <- function(object,...){
    cat("Here here...")
    print(object)
}

x <- 1:10
myfun(x)
myfun(win)
rm(myfun.gWindow)
myfun(win)

如果您想捕获所有 S4 方法，您可以使用 isS4() 在 .default 函数或泛型函数中手动分派。在 .default 函数中添加调度允许自动 S3 调度到某些 S4 类。如果您将其添加到通用中，则无论什么，您都只需分派到所有 S4 ：

    myfun.default <- function(object,...){
        if(isS4(object)) myfun.S4(object,...)
        else {
          cat("default method.\n")
          print(object)
        }
    }

    myfun.S4 <- function(object,...){
        cat("S4 method\n")
        print(object)
    }

x <- 1:10
myfun(x)
myfun(win)

关于您的第二个问题：gWindow 是一种特殊情况。当尝试使用 str(win) 时，它也会返回错误。我不知道确切的结构，但它绝对不是一个普通的S4对象。