R语言 在控制台隐藏函数自带的print内容

最近在写代码，需要监控整个代码的运行情况。因为有很多次的循环，所以需要在控制台进行输出查看代码的具体运行情况。但同时，在多次循环中我需要重复调用同一个函数，但这个函数每运行一次就有相应的print内容，如下：

> normal.EB.PP.sub1 <- normal.PP.EB(mean1, sd1, mean2, sd2)
Maximizing -- use negfn and neggr

如果不断地输出相应的内容，会给我的代码监控造成很大的麻烦。可能很快就把我想看到的内容刷过去了。找了很久以后，我在这个帖子下找到了答案。如果不想要函数自带的print，我们可以把它装进 capture.output中

> capt <- capture.output(normal.EB.PP.sub1 <- normal.PP.EB(mean1, sd1, mean2, sd2))

这样做既能保证正确的赋值，又把所有的输出内容存进了capt中，使其不用再控制台继续输出了。
在Rstudio里，有一类输出是有颜色的，这种不是函数普通的print，而是Message（地位等同于Error和Warning，只是它只是输出提示信息，而不代表有错误发生）。例如在计算KL散度时

> KL <- KL(rbind(prob1,prob2))
Metric: 'kullback-leibler' using unit: 'log2'; comparing: 2 vectors.

这种和Error和Warning的处理方法类似，可以用suppressMessages来处理

> suppressMessages(KL <- KL(rbind(prob1,prob2)))