r - 程序运行后定位错误

Question

我使用代码计算语法错误并在程序运行后报告语法错误的数量。错误计数代码是在 stackoverflow 上提供的，以回应我之前的问题:R: is there a command for the end of a file that states whether any errors occurred?

有时我在分析大型数据集时忘记注释掉打印消息，导致 R 无法打印所有数据和所有代码。

 [ reached getOption("max.print") -- omitted 498 rows ] 

当发生这种情况并且错误计数代码报告错误时，我不能简单地向上滚动以查看错误是什么。有没有办法在R代码运行后定位错误？我尝试使用 traceback() 但它没有帮助。我从未使用过 traceback()，也许我没有正确使用它。我在网上找到的其他潜在解决方案似乎需要在运行 R 文件之前插入代码。

我可以在打印命令被注释掉的情况下重新运行 R 代码，但在这种情况下，代码需要几个小时才能运行。也许我可以使用较小的数据集快速重新运行代码以找出错误，但前提是数据集的大小不会以某种方式导致错误。

这是一个包含错误的示例程序。如果 n 更改为一个很大的数字，可能是 10000000，这段代码似乎会创建相同的场景或类似于我上面描述的场景。谢谢你的任何建议。

我通常通过将代码保存在 *.r 文件中来运行我的代码，然后复制该文件的内容并将其粘贴到我的 Dell PC 64 位 Windows 7 Professional 桌面上的默认 R GUI 中申请。

# the four lines below are for counting syntax errors

.error.count <- 0
old.error.fun <- getOption("error")
new.error.fun <- quote(.error.count <- .error.count + 1)
options(error = new.error.fun, width=2400)

##########################################################

n <- 10

a <- rnorm(n,10,4)
b <- rnorm(n,50,8)
c <- EXP(b)
d <- a + b

df <- data.frame(a,b,d)
df

##########################################################

# the three lines below count the number of errors in the code above

cat("ERROR COUNT:", .error.count, "\n")
options(error = old.error.fun)
rm(.error.count, old.error.fun, new.error.fun)

##########################################################

traceback()

# No traceback available

Answer 1

这是一个仅在交互模式下有效的选项，AFAICT。

修改序言以将错误消息写入错误日志变量:

.error.log <- NULL
old.error.fun <- getOption("error")

new.error.fun <- quote({
  .error.count <- .error.count + 1
  .error.log <- c(.error.log, geterrmessage())
})

然后运行你的代码和cat()错误日志的值:

cat("ERROR COUNT:", .error.count, "\n")
cat("ERROR LOG:", .error.log, collapse="\n")

结果:

> cat("ERROR COUNT:", .error.count, "\n")
ERROR COUNT: 1 
> cat("ERROR LOG:", .error.log, collapse="\n")
ERROR LOG: Error: could not find function "EXP"