Come si ottengono metodi S3 per lavorare con gli oggetti S4?

Question

Sto scrivendo un metodo S3 con cui voglio lavorare qualunque Oggetto R, inclusi oggetti S4.

La prima cosa che non capisco è che le classi S4 non sembrano derivare da una classe base S4, quindi indicata f <- function(x) UseMethod("f") Non posso semplicemente dichiarare un f.S4 Metodo di spedizione e farlo raccogliere tutti gli oggetti S4. (Anche se se tu unclass un oggetto S4, sembra essere data la classe S4.) Come dovrei gestire la spedizione?

Sembra che il modo più semplice per affrontare questi oggetti S4 sarebbe quello di convertirli in elenchi. Purtroppo, as.list lancia un errore ("Nessun metodo per costringere questa classe S4 a un vettore").

Questo è il mio test S4 S4:

library(gWidgetstcltk)
win <- gwindow()

Le funzioni S3Part e S3Class nel methods Il pacchetto sembrava promettente, ma entrambi lanciano errori quando li uso win. Quindi, la domanda 2 è: esiste un modo generale di convertire gli oggetti S4 in elenchi?