R包

Question

我在R包中有一个简单的打印功能：

print.tabyl <- function(x){
  print.data.frame(x, row.names = FALSE)
}

我正在尝试对我的软件包进行全面的测试覆盖，让我感到恼火的是，我未经测试的打印功能将我的测试覆盖率降低到99％（否则将是100％）。

但我无法弄清楚如何捕获print函数的输出以便为它编写测试。如何为打印功能编写测试？