Merge pull request #810 from DyfanJones/main

add operation to service
paws-r · Jul 19, 2024 · c37c23b · c37c23b
2 parents 2e5ea96 + b367dc3
commit c37c23b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/make.paws/R/custom/s3.R b/make.paws/R/custom/s3.R
@@ -125,7 +125,7 @@ s3_download_file <- function(Bucket, Key, Filename, IfMatch = NULL, IfModifiedSi
   input <- .s3$get_object_input(Bucket = Bucket, IfMatch = IfMatch, IfModifiedSince = IfModifiedSince, IfNoneMatch = IfNoneMatch, IfUnmodifiedSince = IfUnmodifiedSince, Key = Key, Range = Range, ResponseCacheControl = ResponseCacheControl, ResponseContentDisposition = ResponseContentDisposition, ResponseContentEncoding = ResponseContentEncoding, ResponseContentLanguage = ResponseContentLanguage, ResponseContentType = ResponseContentType, ResponseExpires = ResponseExpires, VersionId = VersionId, SSECustomerAlgorithm = SSECustomerAlgorithm, SSECustomerKey = SSECustomerKey, SSECustomerKeyMD5 = SSECustomerKeyMD5, RequestPayer = RequestPayer, PartNumber = PartNumber, ExpectedBucketOwner = ExpectedBucketOwner)
   output <- .s3$get_object_output()
   config <- get_config()
-  svc <- .s3$service(config)
+  svc <- .s3$service(config, op)
   request <- new_request(svc, op, input, output, Filename)
   response <- send_request(request)
   return(list())