R包开发：如何获取devtools test()的完整警告回溯栈？

问题概述 #

首次使用roxygen2开发R包时，遇到警告输出层级不一致的问题：

• 逐行运行代码能看到完整警告信息；
• 安装包或通过devtools::load_all()调用函数时，仅显示连接字段提示，无完整警告；
• 执行devtools::test()时仅能看到部分回溯栈（跳过第2-19步），无法定位警告根源；
• 尝试过多种traceback()调用及调整warn选项，均未解决问题。

问题重现步骤 #

• 通过RStudio预设创建新包文件夹；
• 更新包配置以启用roxygen2文档生成；
• 修改Hello.R文件，添加包含dplyr::left_join调用的warn_repex函数；
• 执行usethis::use_test("ExampleRunthrough")创建测试文件；
• 修改测试文件test-ExampleRunthrough.R的内容。

解决方法 #

1. 捕获警告并打印完整调用栈 #

使用withCallingHandlers()包裹函数调用，强制捕获警告并输出完整调用栈：

withCallingHandlers(
  warn_repex(),
  warning = function(w) {
    cat("警告内容：", w$message, "\n")
    cat("完整调用栈：\n")
    print(sys.calls())
    invokeRestart("muffleWarning") # 可选：避免默认警告重复输出
  }
)

2. 将警告转为错误以获取完整回溯 #

在测试脚本开头设置选项，把警告转为错误，触发完整的栈跟踪：

# 临时设置：将警告转为错误，显示20层调用栈
options(warn = 2)
options(error = function() { traceback(20); quit(save = "no") })

# 执行测试
devtools::test()

# 测试完成后恢复默认选项
options(warn = 0, error = NULL)

这样devtools::test()运行时，警告会被触发为错误，此时就能看到完整的调用栈，精准定位问题。

3. 自定义警告时保留调用上下文 #

如果警告是你在包函数中主动抛出的，改用rlang::warn()并设置call. = TRUE，自动保留完整调用上下文：

warn_repex <- function() {
  # 你的业务代码...
  rlang::warn("需要提示的警告信息", call. = TRUE)
}

4. 检查dplyr内部警告控制 #

dplyr::left_join()的警告可能被内部逻辑处理，你可以尝试使用dplyr::join_by()替代旧的连接语法，或者通过dplyr::options()调整相关配置，但最直接的方式还是用withCallingHandlers()捕获警告。

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