R语言中with代码块报错时能否显示出错行号？

方法1：用local()替代with()并开启错误追踪 #

local()和with()逻辑一致，都是在指定环境中执行代码，但配合错误追踪设置后，能输出包含行号的错误栈。示例：

# 开启错误追踪
options(error = traceback)

my_list <- list(a = 1, b = 2)
local({
  print(a + b)
  print(c + d) # 错误行
}, envir = my_list)

运行后会显示完整调用栈，明确指出错误发生在local代码块内的对应行号。

方法2：使用purrr包的with()函数 #

purrr包实现的with()对错误信息做了优化，默认会标注代码块内的错误位置。使用前需安装加载包：

install.packages("purrr")
library(purrr)

my_list <- list(a = 1, b = 2)
with(my_list, {
  print(a + b)
  print(c + d) # 错误行
})

报错信息会直接提示错误出现在代码块的第3行，无需额外配置。

方法3：给with()代码块添加显式错误检查 #

如果不想切换函数或加载包，可在关键位置手动添加存在性检查，主动抛出带行号的错误：

my_list <- list(a = 1, b = 2)
with(my_list, {
  # 行1
  print(a + b)
  # 行2
  if (!exists("c")) stop("错误：行2变量c未定义")
  print(c + d)
})

这种方式适合短代码块的快速调试。

关于封装函数的临时方案 #

你提到的封装函数方法虽能获取行号，但会额外创建函数环境，可能改变原with()的变量搜索逻辑（比如函数内部的环境优先级），上面的方法更贴合with()的原生使用场景，同时解决行号定位问题。

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