Fix logic bug in dotloop()

Ensures that req() works without error
2026-04-29 03:00:45 -04:00 · 2021-02-09 13:56:09 -06:00
parent f540679513
commit e005c24fbf
1 changed files with 1 additions and 1 deletions
--- a/R/utils.R
+++ b/R/utils.R
@@ -1419,7 +1419,7 @@ cancelOutput <- function() {
 #
 # Can be used to facilitate short-circuit eval on dots.
 dotloop <- function(fun_, ...) {
-  for (i in 1:(nargs()-1)) {
+  for (i in seq_len(nargs() - 1)) {
    fun_(eval(as.symbol(paste0("..", i))))
  }
  invisible()