R语言中options(error = browser)断点位置及调试优化方法问询

问题场景 #

当运行以下含错误的R脚本并设置options(error = browser)时：

# 选项设置
# rm(list = ls())
options(error = browser)

# 定义函数
test_func = function(x) {
    temp_x <- x
    stopifnot(!is.null(temp_x))
}

# 测试函数
test_func(NULL)

调试器会停在stop函数的调用环境中，执行ls()只能看到全局环境的test_func，where输出如下：

Browse[1]> ls()
[1] "test_func"

Browse[1]> where
where 1: stop(simpleError(msg, call = if (p <- sys.parent(1L)) sys.call(p)))
where 2 at #3: stopifnot(!is.null(temp_x))
where 3: test_func(NULL)

此时输入n或s会直接终止调试，无法查看test_func内部的x和temp_x变量。想要实现类似手动在错误前插入browser()的效果（如下脚本），但希望通过全局设置实现，而非修改函数代码：

# 选项设置
# rm(list = ls())
options(error = NULL)

# 定义函数
test_func = function(x) {
    temp_x <- x
    browser()
    stopifnot(!is.null(temp_x))
}

# 测试函数
test_func(NULL)

由于使用VS Code的R扩展，无法使用RStudio调试器，询问是否有类似options(error = browser)的全局设置可满足需求。

解决方案 #

可以通过以下两种全局设置实现需求：

1. 使用recover()进入指定调用帧 #

设置options(error = recover)，当错误发生时，R会列出完整的调用栈，你可以选择进入test_func所在的调用帧（对应输出中的where 2或where 3），进入后即可查看函数内部的x和temp_x变量。

示例流程：

options(error = recover)
test_func(NULL)

错误触发后会显示类似选择项：

Enter a frame number, or 0 to exit 

1: stop(simpleError(msg, call = if (p <- sys.parent(1L)) sys.call(p)))
2: stopifnot(!is.null(temp_x))
3: test_func(NULL)

Selection: 3

输入3后就进入test_func的执行环境，此时执行ls()就能看到x和temp_x：

Browse[1]> ls()
[1] "temp_x" "x"

2. 自定义错误处理函数直接进入目标环境 #

通过自定义错误处理函数，让调试器直接跳转到错误发生的函数环境中，无需手动选择：

options(error = function() {
  # 获取调用栈，跳过最顶层的stop调用，进入函数环境
  call_stack <- sys.calls()
  target_frame <- length(call_stack) - 1
  browser(skipCalls = target_frame)
})

设置后运行test_func(NULL)，调试器会直接进入test_func的环境，可直接查看内部变量。

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