catching an error and then branching logic

Question

How do I write R code that allows me to execute a different path in my code if an error condition happens? I\'m using a function that tends to throw an error. When it meets

Answer 1

t <- try(pJohnson(.18, parms))
if("try-error" %in% class(t)) alternativeFunction()