# 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