Merge pull request #172 from rvv23/add-predefinedAcl-to-gcs_save

Expose `predefinedAcl` in `gcs_save()`
cloudyr · Jul 26, 2023 · d600e5c · d600e5c
2 parents 4f13a73 + d3806be
commit d600e5c
Showing 1 changed file with 14 additions and 2 deletions.
diff --git a/R/rsession.R b/R/rsession.R
@@ -64,16 +64,28 @@ gcs_save_image <- function(file = ".RData",
 gcs_save <- function(...,
                      file,
                      bucket = gcs_get_global_bucket(),
-                     envir = parent.frame()){
+                     envir = parent.frame(),
+                     predefinedAcl = c(
+                       "private",
+                       "bucketLevel",
+                       "authenticatedRead",
+                       "bucketOwnerFullControl",
+                       "bucketOwnerRead",
+                       "projectPrivate",
+                       "publicRead",
+                       "default"
+                     )){
 
+  predefinedAcl <- match.arg(predefinedAcl)
+
   tmp <- tempfile()
   on.exit(unlink(tmp))
 
   bucket <- as.bucket_name(bucket)
 
   save(..., file = tmp, envir = envir)
 
-  gcs_upload(tmp, bucket = bucket, name = file)
+  gcs_upload(tmp, bucket = bucket, name = file, predefinedAcl = predefinedAcl)
 
 }