## Not run: ------------------------------------
# # create bucket
# b <- put_bucket("myexamplebucket")
#
# # save some code to the bucket
# cat("x <- 'hello world!'\nx", file = "example.R")
# put_object("example.R", object = "example.R", bucket = b)
# get_bucket(b)
#
# # source the code from the bucket
# s3source(object = "example.R", bucket = b, echo = TRUE)
#
# # cleanup
# unlink("example.R")
# delete_object(object = "example.R", bucket = b)
# delete_bucket("myexamplebucket")
## ---------------------------------------------
Run the code above in your browser using DataLab