# NOT RUN {
# Make a request object for the S3 ListBuckets operation.
# }
# NOT RUN {
metadata <- list(
endpoints = list("*" = list(endpoint = "s3.{region}.amazonaws.com", global = FALSE)),
service_name = "s3"
)
client <- new_service(metadata, new_handlers("restxml", "s3"))
op <- new_operation("ListBuckets", "GET", "/", list())
params <- list()
data <- tag_add(list(Buckets = list()), list(type = "structure"))
req <- new_request(client, op, params, data)
# }
# NOT RUN {
# }
Run the code above in your browser using DataCamp Workspace