inbo · SanderDevisscher · Sep 25, 2024 · Sep 25, 2024 · Sep 25, 2024 · Sep 25, 2024
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: fistools
 Title: Tools & data used for wildlife management & invasive species in Flanders
-Version: 1.2.14
+Version: 1.2.15
 Authors@R: c(
     person(given = "Sander", middle = "", family = "Devisscher", "[email protected]", 
       role = c("aut", "cre"), comment = c(ORCID = "0000-0003-2015-5731")),

diff --git a/NAMESPACE b/NAMESPACE
@@ -19,6 +19,7 @@ export(qd_pci1)
 export(qd_pci2)
 export(qd_pci2_D)
 export(rename_ct_files)
+export(retry_function)
 export(sunsetter)
 export(sunsetter2)
 importClassesFrom(sp,CRS)

diff --git a/R/retry_function.R b/R/retry_function.R
@@ -0,0 +1,59 @@
+#' Retry a function multiple times
+#'
+#' This function evaluates an expression multiple times until it succeeds or the maximum number of attempts is reached.
+#'
+#' @param expr An expression to evaluate.
+#' @param max_attempts The maximum number of attempts to make.
+#' @param sleep_time The time to sleep between attempts, in seconds.
+#'
+#'
+#' @return The result of the expression if successful.
+#'
+#' @author Sander Devisscher
+#' @family other
+#'
+#' @examples
+#' \dontrun{
+#' # This example will fail or succeed randomly.
+#'
+#' some_function <- function() {
+#'  if (runif(1) < 0.5) {  # Randomly fail
+#'    stop("Failed")
+#'    }
+#'  return("Success")
+#' }
+#'
+#' retry_function({some_function()}, max_attempts = 5, sleep_time = 1)
+#' }
+#'
+#' @export
+
+retry_function <- function(expr,
+                           max_attempts = 3,
+                           sleep_time = 0) {
+  attempts <- 0
+  success <- FALSE
+  result <- NULL
+
+  while (attempts < max_attempts && !success) {
+    attempts <- attempts + 1
+    result <- tryCatch({
+      eval(expr)  # Evaluate the expression
+    }, error = function(e) {
+      message(sprintf("Attempt %d failed: %s", attempts, e$message))
+      NULL  # Return NULL on error
+    })
+
+    if (!is.null(result)) {
+      success <- TRUE  # If result is not NULL, we succeeded
+    } else {
+      Sys.sleep(sleep_time)  # Sleep before retrying
+    }
+  }
+
+  if (!success) {
+    stop("All attempts failed.")
+  }
+
+  return(result)
+}
diff --git a/docs/404.html b/docs/404.html
diff --git a/docs/CODE_OF_CONDUCT.html b/docs/CODE_OF_CONDUCT.html
diff --git a/docs/LICENSE-text.html b/docs/LICENSE-text.html
diff --git a/docs/LICENSE.html b/docs/LICENSE.html
diff --git a/docs/authors.html b/docs/authors.html
diff --git a/docs/index.html b/docs/index.html
diff --git a/docs/pkgdown.yml b/docs/pkgdown.yml
@@ -2,4 +2,4 @@ pandoc: 2.9.2.1
 pkgdown: 2.1.1
 pkgdown_sha: ~
 articles: {}
-last_built: 2024-11-13T15:22Z
+last_built: 2024-12-09T15:08Z
diff --git a/docs/reference/CRS_extracter.html b/docs/reference/CRS_extracter.html
diff --git a/docs/reference/UUID_List.html b/docs/reference/UUID_List.html
diff --git a/docs/reference/apply_grtsdb.html b/docs/reference/apply_grtsdb.html
diff --git a/docs/reference/boswachterijen.html b/docs/reference/boswachterijen.html
diff --git a/docs/reference/calculate_polygon_centroid.html b/docs/reference/calculate_polygon_centroid.html
diff --git a/docs/reference/check.html b/docs/reference/check.html
diff --git a/docs/reference/cleanup_sqlite.html b/docs/reference/cleanup_sqlite.html
diff --git a/docs/reference/col_content_compare.html b/docs/reference/col_content_compare.html
diff --git a/docs/reference/colcompare.html b/docs/reference/colcompare.html
diff --git a/docs/reference/collect_osm_features.html b/docs/reference/collect_osm_features.html
diff --git a/docs/reference/download_dep_media.html b/docs/reference/download_dep_media.html
diff --git a/docs/reference/download_gdrive_if_missing.html b/docs/reference/download_gdrive_if_missing.html
diff --git a/docs/reference/download_seq_media.html b/docs/reference/download_seq_media.html
diff --git a/docs/reference/drg_example.html b/docs/reference/drg_example.html
diff --git a/docs/reference/index.html b/docs/reference/index.html
diff --git a/docs/reference/install_sp.html b/docs/reference/install_sp.html
diff --git a/docs/reference/label_converter.html b/docs/reference/label_converter.html
diff --git a/docs/reference/label_selecter.html b/docs/reference/label_selecter.html
diff --git a/docs/reference/lib_crs.html b/docs/reference/lib_crs.html
diff --git a/docs/reference/qd_pci1.html b/docs/reference/qd_pci1.html
diff --git a/docs/reference/qd_pci2.html b/docs/reference/qd_pci2.html
diff --git a/docs/reference/qd_pci2_D.html b/docs/reference/qd_pci2_D.html
diff --git a/docs/reference/rename_ct_files.html b/docs/reference/rename_ct_files.html