创建打印summary.newclass的summary.dynlm

Question

问题：，我想建立在Achim的dynlm包的summary.dynlm上。我已经能够用summary.lm做下面的工作，但不能使用summary.dynlm。

我正在慢慢地学习R的高级编程方面，并正在将我自己的包转换为一个使用S3方法进行更干净功能输出的包。在这种情况下，我希望让我的方法运行现有的方法，因为我只是做一些小的补充。

关于简单性和可重现性，请参见下面的代码：

library(dynlm)
mod <- dynlm(interest ~ loggnp, M1Germany)
class(mod) <- c("newclass","dynlm","lm")

summary.newclass <- function(x, ...){
  cat(" some new stuff here")
  "if"(TRUE, cat("\n\tmaybe more here\n"), cat("\n\t oo fancy new stuff\n"))
  print(summary.lm(x)) # Works with lm
  #print(summary.dynlm(x)) # What I want to run instead
}
summary(mod)

当我注释掉print(summary.lm(x))、取消注释print(summary.dynlm(x))并运行时，我会收到以下错误：

 Error in print(summary.dynlm(x)) : 
  could not find function "summary.dynlm"

谢谢你提前帮忙。

Answer 1

与其直接调用summary.dynlm，我认为正确的方法是向NextMethod()发送。

你的代码变成

library(dynlm)
mod <- dynlm(interest ~ loggnp, M1Germany)
class(mod) <- c("newclass","dynlm","lm")

summary.newclass <- function(x, ...){
  cat(" some new stuff here")
  print(NextMethod())
}

summary(mod)

应该注意的是，summary.dynlm的源代码使用相同的原则向summary.lm发送作为其输出的一部分。