R 如何在S4对象中包含S3超类作为插槽？

我想要一个包含S3超类的插槽，例如

connection

。大多数

connection

实例实际上都是子类型，例如

textConnection

或

pipe

似乎每个子类型都必须分别用

setOldType

声明，否则

new

函数将不接受连接

为了使这一点更加具体：

setOldClass("connection")
setOldClass(c("pipe", "connection"))
setOldClass(c("textConnection", "connection"))

setClass("Thing", 
         slots = list(handle = "connection")
)

thing1 <- new("Thing", handle=textConnection("hiarylah"))
thing2 <- new("Thing", handle=pipe("cat ~/iris.csv"))

setOldClass（“连接”）
setOldClass（c（“管道”、“连接”））
setOldClass（c（“文本连接”、“连接”））
setClass（“东西”，
插槽=列表（句柄=“连接”）
)
事情1