powered by
tryKeepTraceback(expr)
x <- tryKeepTraceback(stop("no way")) if(is(x, "try-error")) cat(getTraceback(x))
Run the code above in your browser using DataLab