如何忽略R进程退出时出现的段错误？

问题背景 #

部分R进程退出时偶发段错误，报错信息如下：

*** caught segfault ***
address 0x80, cause 'memory not mapped' 

Traceback:
1: x$unload() 
2: (function(x) x$unload())(<environment>)

An irrecoverable exception occurred. R is aborting now...

当前阻碍排查的问题：

• 错误偶发，无固定复现条件
• 重试后可能自行消失
• 无法直接确定触发卸载的目标包

需求：由于错误发生在进程退出阶段，无需保证包完成卸载，希望实现以下任一目标（优先无需修改现有R代码的方案）：

• 阻止R执行包卸载操作
• 判断错误发生在退出阶段并自动忽略
• 定位引发段错误的包

解决方案 #

1. 阻止R卸载包（无代码修改） #

通过设置环境变量R_KEEP_PKG_SOURCE=yes，让R保留已加载包的源文件引用，从而跳过自动卸载流程。启动R进程时直接指定该变量即可：

R_KEEP_PKG_SOURCE=yes Rscript your_script.R

若需全局生效，可将该环境变量添加到系统配置（如/etc/profile或用户~/.bashrc）。

2. 忽略退出阶段的错误 #

利用R的.Last函数（进程退出时自动执行），包裹清理操作并捕获所有错误：

.Last <- function() {
  tryCatch(
    expr = {gc()},
    error = function(e) NULL  # 静默忽略退出阶段的所有错误
  )
}

将这段代码保存到用户目录的~/.Rprofile文件中，所有R进程启动时会自动加载该配置，无需修改原有脚本。

3. 定位问题包 #

通过自定义卸载逻辑，在卸载前打印包名。将以下代码添加到~/.Rprofile：

# 重载unload方法，添加卸载日志
if ("package:methods" %in% search()) {
  old_unload <- getMethod("unload", "Package")
  setMethod("unload", "Package", function(pkg) {
    cat("[UNLOAD] Processing package:", pkg@name, "\n")
    tryCatch(
      expr = old_unload(pkg),
      error = function(e) {
        cat("[ERROR] Failed to unload", pkg@name, ":", e$message, "\n")
      }
    )
  })
}

下次进程退出时，控制台会打印正在卸载的包名，结合报错时机即可定位引发段错误的包。

推荐方案 #

优先使用设置R_KEEP_PKG_SOURCE=yes环境变量的方式，无需修改任何R代码即可快速解决问题；若需定位问题包，再通过.Rprofile添加日志逻辑。

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