Question

我试图从教学中使用的本地包中的R stats包中覆盖print.anova（）函数。基本上，我想删除标题的打印并添加“总”行而不用新类创建新函数（例如，ANOVA（））。

该功能如下所示：

print.anova <- function(x,digits=max(getOption("digits")-2,3),
 signif.stars=getOption("show.signif.stars"),totalSS=TRUE,rm.heading=TRUE,...) {
  if (!any(grepl("Res.Df",colnames(x)))) {         # exclusion for multiple lm objects
    if (!any(grepl("Levene",attr(x,"heading")))) { # exclusion for levenes.test
      if (totalSS) {                               # add total SS row
        x <- rbind(x,c(sum(x$Df),sum(x[,"Sum Sq"]),NA,NA,NA))
        row.names(x)[dim(x)[1]] <- "Total"
      }
    }
  }
  if (rm.heading) attr(x,"heading") <- NULL        # remove heading
  stats::print.anova(x,digits=digits,signif.stars=signif.stars,...)
  invisible(x)
}

我的问题是我不确定是将它作为函数，方法，S3方法，这些的某种组合或其他完全导出。例如，当我尝试这个（roxygenize代码的一部分）时：

#'@export

运行Rcmd检查时出现以下警告：

S3 methods shown with full name in documentation object 'print.anova':
  'print.anova'

但是当我加载我的包时，该函数按预期工作。

但是，如果我试试这个：

#'@method print anova
#'@S3method print anova

我没有使用Rcmd检查得到任何警告或错误但是当我尝试在R中使用该函数时，它会在stats包命名空间中找到原始函数。此外，如果我这样做

getAnywhere(print.anova)

我明白了

2 differing objects matching ‘print.anova’ were found in the following places
  package:stats
  registered S3 method for print from namespace stats
  namespace:NCStats
  namespace:stats

最后，对于这个版本（不使用export，但使用方法和S3method），我的roxygen开发的命名空间中包含以下项目

S3method(print,anova)

导致我感到困惑的是，我似乎已经成功地与其他函数做了类似的事情（例如，使用方法和使用print.summary.lm的S3method版本）。

如果我理解我在这里做错了什么（或者我最终能够如何实现这个目标），我将不胜感激。提前感谢您的帮助。

p.s。，为了它的价值，我在Windows 7（32位），R 2.15.2和使用RStudio。

Answer 1

您可以创建自己的类，而不是尝试覆盖print.anova函数，该类与anova类基本相同。创建as.myanova函数，将anova对象转换为mynanova对象，然后编写print.myanova函数。

覆盖基R中的S3方法

1 个答案: