refactor: use modulo

Author: maelle

R/mock2-helpers.R

@@ -41,7 +41,13 @@ mock_output_sequence <- function(values, recycle = FALSE) {
         i = "You can set {.arg recycle} to {.code TRUE}."
       ))
     }
-    value <- rep_len(values, length.out = i)[[i]]
+    remainder <- i %% length(values)
+    if (remainder == 0) {
+      index <- length(values)
+    } else {
+      index <- remainder
+    }
+    value <- rep_len(values, length.out = index)[[index]]
     i <<- i + 1
     value
   }