r - 隐藏控制台的输出

Question

我的代码包含一个对其运行必不可少的命令，但它最终在控制台中显示了该命令的结果，我尝试使用 suppressWarnings()、suppressMessages (), invisible() 和 sink() 但所有这些仍然显示结果。

这是一个示例数据集以及问题的来源:

M<-c(1111,1222,1333,1444,1555,1666,1777,2223,6654,9867,1123,1456,2436,6875)
fstAdi <- ets(ts(rep(M,length = length(M)), deltat= 1/4, start = c(8,1)), model = "AAA", damped = FALSE, opt.crit = "mae", ic="aic", lower = c(0, 0, 0, 0), upper = c(0.999, 0.999, 0.999, 0.999), bounds = "admissible", restrict = FALSE)
mae11Ad<-summary(fstAdi)[,"MAE"]

上面代码的最后一行总是在控制台中显示摘要，这在为导致问题的报告自动执行此操作时。有谁知道可以阻止这种情况发生的命令吗？

谢谢

我找到了一种在自动生成报告时隐藏它的方法，但是如果有人知道如何在运行代码时隐藏它以使过程更快，那么无论如何这都会非常有帮助:)

Answer 1

ets 对象的总结方法有点冗长:

> forecast:::summary.ets
function (object, ...) 
{
    print(object)
    cat("\nTraining set error measures:\n")
    print(accuracy(object))
}
<bytecode: 0x161d31c8>
<environment: namespace:forecast>

这是非常糟糕的风格，摘要方法应该返回一个带有类的对象，并且该类的打印方法应该产生输出。

所以你可以在你的对象上调用 accuracy 方法:

> accuracy(fstAdi)[,"MAE"]
[1] 1971.468

它的优点是不需要任何输出转移并且更具可读性。