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

问题描述

假设我有一个函数，例如:

Suppose I have a function such as:

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

并通过以下方式运行它:

And run it by:

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

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

My question is how to disable or hide the 5 printed from cat(x, "\n") such as:

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

推荐答案

您可以使用 capture.output 和 invisible

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

或 sink

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

这篇关于如何隐藏或禁用功能内打印消息的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！