r - 如何隐藏或禁用功能正常的打印消息

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