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

[raulcd]

This is an automated email from the ASF dual-hosted git repository.

raulcd pushed a commit to branch main
in repository https://gitbox.apache.org/repos/asf/arrow.git


The following commit(s) were added to refs/heads/main by this push:
     new 5aa7dd15b0 GH-48283: [R][CI] Failures on R Lint on main (#48286)
5aa7dd15b0 is described below

commit 5aa7dd15b0235ed93fcdad20cd8f6f07b89de265
Author: Nic Crane <thisis...@gmail.com>
AuthorDate: Fri Nov 28 17:00:18 2025 +0000

    GH-48283: [R][CI] Failures on R Lint on main (#48286)
    
    ### 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 <thisis...@gmail.com>
    Signed-off-by: Raúl Cumplido <raulcumpl...@gmail.com>
---
 r/R/schema.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/r/R/schema.R b/r/R/schema.R
index d19ebeb2db..2c4ed14d7b 100644
--- 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[[.]])