如何添加导致错误的行的信息？

Question

我想使用一个将错误导出到.txt文件的函数.到目前为止,我有:

error.function <- function() {
cat(geterrmessage(), file="c:/bla.txt", append=TRUE)
}

然后,

options("error"=error.function)

但是,这只能给我error没有相应的行号我可以请求帮助以扩展error.function以及有关行号的信息(我在Rstudio中的脚本以line1开头并上升到第2500行？