try_again(times, code)
third_try <- local({ i <- 3 function() { i <<- i - 1 if (i > 0) fail(paste0("i is ", i)) } }) try_again(3, third_try())
Run the code above in your browser using DataCamp Workspace