如何用R语言的sink()捕获install.packages的全部输出？

问题原因 #

那些带星号的安装过程信息，并非R会话内部产生的输出，而是install.packages执行时调用的**底层系统工具（如编译、解压包的Shell命令）**直接输出到控制台的内容。这类输出绕过了R自身的output和message流，而sink()只能捕获R会话内部生成的输出内容（比如print()、message()函数的输出），因此无法将这些带星号的行写入日志文件。

解决方法 #

方法1：命令行重定向（最简单直接） #

直接在运行R脚本时，通过Shell的重定向命令，将整个R进程的所有输出（包括外部工具的输出）写入日志文件：

R -q -f main.R > test.log 2>&1

> test.log将标准输出重定向到日志，2>&1将标准错误也合并到标准输出中，这样所有控制台可见的内容都会被写入test.log。

方法2：R内部使用processx包捕获外部进程输出 #

如果需要在R脚本内部处理，可以使用processx包来管理外部进程，捕获其输出：

library(processx)
# 创建日志文件
fp <- file("test.log", open = "wt")
# 捕获R自身的输出
sink(fp, type = "output")
sink(fp, type = "message")

# 用processx执行安装命令并捕获输出
result <- processx::run(
  command = R.home("bin/R"),
  args = c("-q", "-e", "install.packages('stringr', quiet = FALSE)"),
  stdout = fp,
  stderr = "stdout"
)

# 恢复sink并关闭文件
sink(type = "message")
sink()
close(fp)

这种方式可以将外部进程的输出直接写入日志文件，同时保留对R自身输出的捕获。

内容的提问来源于stack exchange，提问作者Brian Albert Monroe