add tryn()?

[jmbarbone]

I like the name

tryn <- function(expr, n = 10, silent = TRUE) {
  e <- parent.frame()
  attempt <- 0
  expr <- as.expression(substitute(expr))
  while (inherits(res <- try(eval(expr, envir = e), silent = silent), "try-error")) {
    attempt <- attempt + 1
    if (attempt == n) {
      cond <- attr(res, "condition")
      msg <- paste0(
        "tryn() failed: maximum attempts reached: ", attempt, "\n",
        "Error in ", as.character(as.expression(cond[["call"]])), " : ",
        cond[["message"]]
      )
      stop(simpleError(msg))
    }
  }
  
  res
}

foo <- function() stop("I added an error")
tryn(n = 10, foo())
#> Error: tryn() failed: maximum attempts reached: 10
#> Error in foo() : I added an error

^{Created on 2022-01-15 by the reprex package (v2.0.1)}