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

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

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

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

像这样使用它：

y <- quiet(ff(5))

Answer 3

您还应该检查一下purrr::quietly()。

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

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

^{由reprex 包(v0.3.0)于 2020-09-10 创建}