我来帮你搞定这个需求！其实在tryCatch里把捕获到的错误信息写入文件非常直观，核心就是在error分支里处理错误对象，然后用文件写入函数把信息持久化下来。下面给你具体的实现方案和代码示例：

基础实现方案 #

你只需要在tryCatch的error参数对应的函数里，提取错误信息并写入文件即可。这里推荐加上时间戳，方便后续排查错误发生的时间点：

library(forecast)
library(data.table)
library(RODBC)

# 初始化结果数据框
forecast_data <- data.frame(
  Project_ID=character(), 
  Period_End=character(), 
  Point_Forecast=character(), 
  Lower_Limit_95=character(), 
  Upper_Limit_95=character(), 
  stringsAsFactors=FALSE
)

# 指定错误日志的存储路径
error_log <- "forecast_error_log.txt"

tryCatch({
  # 这里放你的核心业务代码，比如读取数据、建模预测等
  Data <- read.csv("Data.csv", header=TRUE, na.strings=c("NULL",""))
  # ... 你的后续处理逻辑（比如时间序列建模、填充forecast_data等）
  
}, error = function(e) {
  # 构造包含时间戳的错误信息
  error_details <- paste0(
    "错误发生时间: ", Sys.time(), "\n",
    "错误内容: ", conditionMessage(e), "\n",
    "-------------------------\n"
  )
  
  # 将错误信息追加写入日志文件（append=TRUE避免覆盖历史日志）
  cat(error_details, file = error_log, append = TRUE)
  
  # 可选：如果需要，这里可以添加错误后的兜底逻辑，比如返回空数据框等
})

关键细节说明 #

• 错误对象e：error分支的函数参数e是捕获到的错误对象，用conditionMessage(e)可以提取出可读性强的错误文本。
• 追加写入：cat()函数的append=TRUE参数非常关键，这样每次捕获到的错误都会追加到日志文件末尾，不会覆盖之前的错误记录。
• 时间戳：通过Sys.time()添加错误发生的时间，能帮你快速定位问题发生的时机，尤其适合长时间运行的批量任务。

进阶：记录错误调用栈 #

如果需要更详细的错误上下文（比如错误发生在代码的哪个具体环节），可以加上调用栈信息：

error_details <- paste0(
  "错误发生时间: ", Sys.time(), "\n",
  "错误内容: ", conditionMessage(e), "\n",
  "调用栈信息:\n", paste(sys.calls(), collapse = "\n"), "\n",
  "-------------------------\n"
)

这样日志里会包含错误发生时的函数调用链，排查问题会更高效。

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