# \donttest{
# example error handler - report source file and line number
old_option_error <- getOption("error")
options(error=function()
cat(sprintf(
"Error in %s:%s.\n", Sys.getenv("__FILE__"), Sys.getenv("__LINE__")
), file=stderr()))
# now call source2() to execute an R script that throws some errors...
options(error=old_option_error) # cleanup
# }
Run the code above in your browser using DataLab