# NOT RUN {
# get an object in memory
## create bucket
b <- put_bucket("myexamplebucket")
## save a dataset to the bucket
s3save(mtcars, bucket = b, object = "mtcars")
obj <- get_bucket(b)
## get the object in memory
x <- get_object(obj[[1]])
load(rawConnection(x))
"mtcars" %in% ls()
# save an object locally
y <- save_object(obj[[1]], file = object[[1]][["Key"]])
y %in% dir()
# return object using 'S3 URI' syntax
get_object("s3://myexamplebucket/mtcars")
# return parts of an object
## use 'Range' header to specify bytes
get_object(object = obj[[1]], headers = list('Range' = 'bytes=1-120'))
# }
Run the code above in your browser using DataLab