# NOT RUN {
diagnose()
f <- function(){
stop("unusual error")
}
bad_plan <- workplan(my_target = f())
make(bad_plan)
failed() # from the last make() only
diagnose() # from all previous make()'s
error <- diagnose(my_target)
str(error)
error$calls # View the traceback.
# }
Run the code above in your browser using DataLab