如何从R的mclapply报错中获取调用栈（backtrace）

由于parallel::mclapply基于fork机制创建子进程，默认的错误捕获不会保留完整调用栈信息，你可以通过以下几种方式获取报错位置的调用栈：

方法1：在函数内手动捕获错误并保存调用栈 #

修改目标函数，用tryCatch捕获错误时记录调用栈：

f <- \(x) {
  if (x == 4) {
    tryCatch(
      stop("Oh no!"),
      error = function(e) {
        e$call_stack <- sys.calls()
        stop(e)
      }
    )
  } else {
    x
  }
}

执行并行任务后，从错误对象中提取调用栈：

x <- parallel::mclapply(1:10, f)
err <- attr(x[[2]], "condition")
# 打印调用栈
print(err$call_stack)

方法2：在子进程内生成traceback并附加到错误 #

在错误捕获逻辑中直接生成traceback信息：

f <- \(x) {
  if (x == 4) {
    tryCatch(
      stop("Oh no!"),
      error = function(e) {
        e$traceback <- traceback(x = sys.calls(), max.lines = Inf)
        stop(e)
      }
    )
  } else {
    x
  }
}

之后通过err$traceback查看完整调用栈。

方法3：切换到future包的并行实现 #

future系列工具对错误上下文的保留更友好，无需手动修改函数：

library(future)
plan(multisession)
x <- future.apply::future_lapply(1:10, \(x) if (x ==4) stop("Oh no!") else x)
# 提取错误对象并查看调用栈
err <- attr(x[[2]], "condition")
traceback(err)

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