如何完整保存R会话中的所有文本（代码、错误信息）？sink存不全错误

以下几种方法可以完整捕获R会话中的所有文本（代码输出、错误信息）：

方法1：用capture.output()一次性捕获 #

如果是运行一段代码块，直接把代码放在capture.output()里，指定捕获输出和消息（错误属于消息类型）：

# 把你的代码放在大括号里
log_content <- capture.output({
  print("测试正常输出")
  stop("模拟一个错误")
}, type = c("output", "message"))
# 写入文件
writeLines(log_content, "full_log.txt")

如果是运行外部脚本文件，可以分开捕获输出和错误再合并：

# 捕获正常输出
capture.output(source("your_script.R"), file = "full_log.txt", type = "output")
# 追加错误信息到同一个文件
capture.output(source("your_script.R"), file = "full_log.txt", type = "message", append = TRUE)

方法2：结合sink()和withCallingHandlers()补全错误捕获 #

之前的sink()漏错误是因为部分错误不会走标准输出，用withCallingHandlers()可以主动捕获错误并写入文件：

sink("full_log.txt", split = TRUE)
withCallingHandlers({
  # 这里写你的代码
  print("正常输出内容")
  stop("这是一条错误信息")
}, error = function(e) {
  # 把错误信息追加到日志
  cat("错误：", e$message, "\n", file = "full_log.txt", append = TRUE)
})
sink()

方法3：启动R时直接开启全局日志 #

在终端启动R时添加命令行参数，直接把整个会话的所有输出（包括输入的代码、结果、错误）都写入文件：

# 终端执行这条命令启动R
R --vanilla --slave > full_log.txt 2>&1

启动后所有操作的内容都会自动写入full_log.txt，无需在R里额外设置。

方法4：用logging包灵活管理日志 #

如果需要更精细的日志控制（比如分级别记录），可以用logging包：

# 先安装包
install.packages("logging")
library(logging)

# 配置日志文件和级别
basicConfig()
addHandler(writeToFile, file = "full_log.txt", level = "DEBUG")

# 你的代码逻辑
loginfo("开始执行代码")
print("测试输出")
logerror("触发错误")
stop("实际错误内容")

内容的提问来源于stack exchange，提问作者stats_noob