A function that sometimes fails, and a wrapper for that function that runs the first one until it does not fail

try loop.R

my_function <- function(x){  # This is a function that sometimes fails
  doesItWork <- rnorm(1) > x
  if(doesItWork){
    return("You got a result")
  } else {
    stop("Did not work")
  }
}

function_wrapper <- function(y){  # This function tries the first one until it works
  finallyWorked <- FALSE
  while(!finallyWorked){
    resultObject <- try(my_function(y))
    if(class(resultObject) != "try-error"){
      finallyWorked <- TRUE
      }
  }
  return(resultObject)
  }

function_wrapper(0.5)

I believe it is possible for the class of a failed try to be more complex than just "try-error". You might want to use !"try-error" %in% class(resultObject) instead.