This function does the same as try, but instead of trying only once, it will try the number of times specified by the parameter n.

try_n.R

try_n <- function(x, n = 2, .otherwise = "", quiet = T){
  index <- 1
  out <- try(1+a, silent = T)
  
  while(index <= n & class(out) == "try-error"){
    if(!quiet){message(glue::glue("Trial {index}"))}
    out <- suppressWarnings(try(x, silent = T))
    index <- index + 1
  }
  
  if(class(out) == "try-error"){
    if(.otherwise == "") return(out) else return(.otherwise)
  } else {
    return(out)
  }
}