condition_handler(warning("This is a warning!"))
f <- function(expr){warning("This a warning!"); eval(expr)}
condition_handler(f(1/2))
condition_handler(stop("This is an error!"))
condition_handler(1/"a")
Run the code above in your browser using DataLab