[NEW function] retry_function

[SanderDevisscher]

Voorstel functie naam ""

Functionality

• [x] uses trycatch()
• [x] to allow x retries

example code:

retry_function <- function(expr, max_attempts = 3) {
  attempts <- 0
  success <- FALSE
  result <- NULL

  while (attempts < max_attempts && !success) {
    attempts <- attempts + 1
    result <- tryCatch({
      eval(expr)  # Evaluate the expression
      success <- TRUE
      result  # Return the result if successful
    }, error = function(e) {
      message(sprintf("Attempt %d failed: %s", attempts, e$message))
      NULL  # Return NULL on error
    })
  }

  if (!success) {
    stop("All attempts failed.")
  }

  return(result)
}

Checklist

• [x] maak een nieuw R-bestand
• [x] sla het R bestand op onder ./R met filenaam is gelijk aan functienaam
• [x] voorzie een functie titel met #' op regel 1 van je script
• [x] voorzie een auteur met #' @author
• [x] voorzie een beschrijving met #' @description
• [x] voorzie uitleg over de input parameter(s) met #' @param name
• [x] voorzie uitleg over de output van de functie met #' @returns
• [x] voorzie minstens 1 voorbeeld van het gebruik van de functie dmv #' @examples
• [x] voorzie de export - tag dmv #' @export (#14)
• [x] voer usethis::use_package("packagename", min_version = TRUE) uit in de console voor iedere package die je gebruikt.
• [x] voer roxygen2::roxygenise() uit in de console
• [x] voer devtools::check() uit in de console
• [x] los eventuele errors, warnings en notes¹ op
• [x] increment versie dmv usethis::use_version(which = "minor")²
• [x] maak een pull request met @soriadelva of @SanderDevisscher en eventueel andere relevante gebruikers als reviewer.

¹in de mate van het mogelijke

²als je meer dan 5 functies en/of datasets in één pull request veranderd hebt gebruik: usethis::use_version(which = "major")