# NOT RUN {
# Metadata for the S3 API.
metadata <- list(
service_name = "s3",
endpoints = list("us-east-1" = list(endpoint = "s3.amazonaws.com", global = FALSE)),
service_id = "S3",
api_version = "2006-03-01",
signing_name = NULL,
json_version = "",
target_prefix = ""
)
# Handlers for S3.
handlers <- new_handlers("restxml", "v4")
# Build a service object for S3, containing the information necessary to
# build, send, and receive requests.
service <- new_service(metadata, handlers)
# }
# NOT RUN {
# }
Run the code above in your browser using DataCamp Workspace