## 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