my_log <- function(x) log(x)
foo <- function(...) my_log(...)
f <- future({ foo("a") })
res <- tryCatch({
v <- value(f)
}, error = function(ex) {
t <- backtrace(f)
print(t)
})
# \dontshow{
## R CMD check: make sure any open connections are closed afterward
if (!inherits(plan("next"), "sequential")) plan(sequential)
# }
Run the code above in your browser using DataLab