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

假设我有一个如下功能:

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

Roman Tsegel.. 39

你可以用capture.output与invisible

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

要么 sink

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

Ben.. 9

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

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

像这样使用它：

y <- quiet(ff(5))

资料来源：http : //r.789695.n4.nabble.com/Suppressing-output-eg-from-cat-td859876.html

你可以用capture.output与invisible

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

要么 sink

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

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

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

像这样使用它：

y <- quiet(ff(5))

资料来源：http : //r.789695.n4.nabble.com/Suppressing-output-eg-from-cat-td859876.html