## Not run: ------------------------------------
# # create bucket
# b <- put_bucket("myexamplebucket")
#
# # save a single object to s3
# s3saveRDS(x = mtcars, bucket = "myexamplebucket", object = "mtcars.rds")
#
# # restore it under a different name
# mtcars2 <- s3readRDS(object = "mtcars.rds", bucket = "myexamplebucket")
# identical(mtcars, mtcars2)
#
# # cleanup
# delete_object(object = "mtcars.rds", bucket = "myexamplebucket")
# delete_bucket("myexamplebucket")
## ---------------------------------------------
Run the code above in your browser using DataLab