refactor: use modulo

maelle · maelle · commit f20a03195b9e · 2025-02-24T08:29:15.000+01:00
diff --git a/R/mock2-helpers.R b/R/mock2-helpers.R
@@ -41,7 +41,8 @@ mock_output_sequence <- function(values, recycle = FALSE) {
         i = "You can set {.arg recycle} to {.code TRUE}."
       ))
     }
-    value <- rep_len(values, length.out = i)[[i]]
+    index <- (i - 1) %% length(values) + 1
+    value <- rep_len(values, length.out = index)[[index]]
     i <<- i + 1
     value
   }

Original file line number	Diff line number	Diff line change
`@@ -41,7 +41,8 @@ mock_output_sequence <- function(values, recycle = FALSE) {`
`41`	`41`	`i = "You can set {.arg recycle} to {.code TRUE}."`
`42`	`42`	`))`
`43`	`43`	`}`
`44`		`- value <- rep_len(values, length.out = i)[[i]]`
	`44`	`+ index <- (i - 1) %% length(values) + 1`
	`45`	`+ value <- rep_len(values, length.out = index)[[index]]`
`45`	`46`	`i <<- i + 1`
`46`	`47`	`value`
`47`	`48`	`}`