如何隐藏或禁用功能中打印的消息

Question

假设我有一个如下功能：

ff <- function(x) {
  cat(x, "\n")
  x^2}

按以下方式运行：

y <- ff(5)
# 5 
y
# [1] 25

我的问题是如何禁用或隐藏5打印的cat(x, "\n")，例如：

y <- ff(5)
y
# [1] 25

Answer 1

您可以将capture.output与invisible

一起使用

> invisible(capture.output(y <- ff(2)))
> y
[1] 4

或sink

> sink("file")
> y <- ff(2)
> sink()
> y
[1] 4

Answer 2

这是抑制Hadley Wickham从cat()输出的好函数：

quiet <- function(x) { 
  sink(tempfile()) 
  on.exit(sink()) 
  invisible(force(x)) 
} 

像这样使用它：

y <- quiet(ff(5))

来源：http://r.789695.n4.nabble.com/Suppressing-output-e-g-from-cat-td859876.html

Answer 3

您还应该签出purrr::quietly()。

ff <- function(x) {
  cat(x, "\n")
  x^2
}

purrr::quietly(ff)(7)$result
#> [1] 49

^{由reprex package（v0.3.0）于2020-09-10创建}