f <- function(x) if (x == 1) stop("Error!") else 1
## Not run: ------------------------------------
# f(1)
# f(2)
## ---------------------------------------------
safef <- failwith(NULL, f)
safef(1)
safef(2)
Run the code above in your browser using DataLab