GH-48283: [R][CI] Failures on R Lint on main (#48286)

thisisnic · web-flow · commit 5aa7dd15b023 · 2025-11-28T18:00:18.000+01:00
### Rationale for this change lint failures ### What changes are included in this PR? Fix them by changing function used ### Are these changes tested? Yes ### Are there any user-facing changes? Nope * GitHub Issue: #48283 Authored-by: Nic Crane <thisisnic@gmail.com> Signed-off-by: Raúl Cumplido <raulcumplido@gmail.com>
diff --git a/r/R/schema.R b/r/R/schema.R
@@ -366,7 +366,7 @@ length.Schema <- function(x) x$num_fields
   if (is.numeric(i)) {
     if (all(i < 0)) {
       # in R, negative i means "everything but i"
-      i <- setdiff(seq_len(length(x)), -1 * i)
+      i <- setdiff(seq_along(x), -1 * i)
     }
   }
   fields <- map(i, ~ x[[.]])

Original file line number	Diff line number	Diff line change
`@@ -366,7 +366,7 @@ length.Schema <- function(x) x$num_fields`
`366`	`366`	`if (is.numeric(i)) {`
`367`	`367`	`if (all(i < 0)) {`
`368`	`368`	`# in R, negative i means "everything but i"`
`369`		`- i <- setdiff(seq_len(length(x)), -1 * i)`
	`369`	`+ i <- setdiff(seq_along(x), -1 * i)`
`370`	`370`	`}`
`371`	`371`	`}`
`372`	`372`	`fields <- map(i, ~ x[[.]])`