r - 隐藏来自控制台的输出

我的代码包含一个对其运行必不可少的命令，但是最终在控制台中显示了此命令的结果，我尝试使用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"]

上面代码的最后一行始终在控制台中显示摘要，将摘要自动执行以生成引起问题的报告时。有谁知道可以阻止这种情况发生的命令？

谢谢

我已经找到了一种在自动执行报告时将其隐藏的方法，但是如果有人知道如何在运行代码时将其隐藏以使过程更快，那么无论如何这将是非常有用的:)

最佳答案

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)
sink(tempfile())
mae11Ad<-summary(fstAdi)[,"MAE"]
sink()

关于r - 隐藏来自控制台的输出，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/26214301/