如何重定向rlang::inform()函数的输出？

嘿，这个问题我之前也踩过坑，来给你掰扯清楚两部分疑问：

一、为什么rlang的消息函数不被普通sink捕获？ #

其实核心原因是输出流的区别：

• print()、cat()这类函数是把内容输出到标准输出流（stdout），这是默认的控制台输出流，普通的sink(type="output")就是用来捕获这个流的内容。
• 而rlang::inform()、rlang::warn()、rlang::abort()这些函数，是按照CRAN的规范，把用户提示/警告/错误消息发送到标准错误流（stderr）。这个流本来是用来传递程序的状态消息，和普通的输出流是分开的，所以默认的sink抓不到它。

二、怎么重定向这些rlang消息的输出？ #

你后来找到的方法是对的，不过可以再给你拆解一下逻辑，还有其他可选方案：

方案1：用文件连接实现完全重定向到文件 #

sink(type="message")的规则比较特殊：它不能直接指定文件名，必须传入一个已经打开的文件连接。所以步骤要分成：

1. 先打开一个可写的文件连接
2. 同时把stdout和stderr都重定向到这个连接（如果只需要消息流，只做第二步的type="message"就行）
3. 执行你的函数
4. 关闭重定向和文件连接

完整代码示例：

library(rlang)
HelloWorld <- function() {
  rlang::inform(message="Hello, World!")
}

# 打开文件连接
fout <- file("Sunk.txt", open="wt")
# 重定向标准输出到文件
sink(fout)
# 重定向消息流（stderr）到文件
sink(fout, type="message")

# 调用函数，此时控制台不会输出内容
HelloWorld()

# 关闭重定向（注意顺序：先关消息流，再关标准输出）
sink(type="message")
sink()
# 关闭文件连接
close(fout)

这样Sunk.txt里就会有你要的"Hello, World!"了。

方案2：把消息捕获到变量里（不用写文件） #

如果只是想把消息存到变量里用于测试或调试，可以用capture.output()并指定type="message"：

msg_content <- capture.output(HelloWorld(), type="message")
print(msg_content)
# 输出：[1] "Hello, World!"

方案3：临时抑制消息输出 #

如果只是想不让消息显示在控制台（比如单元测试时），可以用suppressMessages()：

suppressMessages(HelloWorld())
# 控制台不会有任何输出

备注：内容来源于stack exchange，提问作者Alexis