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

Question

我想使用将错误导出到.txt文件的函数。到目前为止，我有：

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

然后，

options("error"=error.function)

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