(arrow) branch main updated: GH-49622:[R][CI] Some R CI jobs seem unable to access some S3 files on arrow-datasets bucket (#49625)

[thisisnic]

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

thisisnic 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 6f836c5595 GH-49622:[R][CI] Some R CI jobs seem unable to access some 
S3 files on arrow-datasets bucket (#49625)
6f836c5595 is described below

commit 6f836c5595661df7720852da0c218f9e5d3cc1f3
Author: Nic Crane <thisis...@gmail.com>
AuthorDate: Tue Mar 31 19:08:13 2026 +0100

    GH-49622:[R][CI] Some R CI jobs seem unable to access some S3 files on 
arrow-datasets bucket (#49625)
    
    ### Rationale for this change
    
    Can't write to buckets, need new bucket so set one up with write access
    
    ### What changes are included in this PR?
    
    Point to new bucket
    
    ### Are these changes tested?
    
    By CI, yeah
    
    ### Are there any user-facing changes?
    
    Nope
    * GitHub Issue: #49622
    
    Authored-by: Nic Crane <thisis...@gmail.com>
    Signed-off-by: Nic Crane <thisis...@gmail.com>
---
 r/tests/testthat/test-s3.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/r/tests/testthat/test-s3.R b/r/tests/testthat/test-s3.R
index 07959919db..7818f1e3d4 100644
--- a/r/tests/testthat/test-s3.R
+++ b/r/tests/testthat/test-s3.R
@@ -26,7 +26,7 @@ run_these <- tryCatch(
         !identical(Sys.getenv("AWS_SECRET_ACCESS_KEY"), "")
     ) {
       # See if we have access to the test bucket
-      bucket <- s3_bucket("arrow-datasets")
+      bucket <- s3_bucket("arrow-r-ci-test")
       bucket$GetFileInfo("")
       TRUE
     } else {
@@ -36,7 +36,7 @@ run_these <- tryCatch(
   error = function(e) FALSE
 )
 
-bucket_uri <- function(..., bucket = 
"s3://arrow-datasets/%s?region=us-east-1") {
+bucket_uri <- function(..., bucket = 
"s3://arrow-r-ci-test/%s?region=us-east-1") {
   segments <- paste(..., sep = "/")
   sprintf(bucket, segments)
 }