repeat download without counting to max number of retries

rfhb · Aug 28, 2024 · 84c3d48 · 84c3d48
1 parent 30d3b7d
commit 84c3d48
Showing 1 changed file with 7 additions and 2 deletions.
diff --git a/R/util_functions.R b/R/util_functions.R
@@ -872,11 +872,16 @@ ctrMultiDownload <- function(
       stop("Download failed; last error: ", class(downloadValue), call. = FALSE)
     }
 
-    numI <- numI + 1L
-    toDo <- is.na(downloadValue[["success"]]) |
+    toDoThis <- is.na(downloadValue[["success"]]) |
       !downloadValue[["success"]] |
       !(downloadValue[["status_code"]] %in% c(200L, 206L, 416L))
 
+    # only count towards repeat attempts if
+    # the set of repeated urls is unchanged
+    if (identical(toDo, toDoThis)) numI <- numI + 1L
+
+    toDo <- toDoThis
+
   }
 
   if (any(toDo)) {