Nothing
skip_if_no_aws <- function() {
skip_if(Sys.getenv("AWS_ACCESS_KEY_ID") == "")
skip_if(Sys.getenv("AWS_SECRET_ACCESS_KEY") == "")
skip_if(Sys.getenv("AWS_REGION") == "")
skip_if_not_installed("paws.storage")
skip_if_offline()
skip_cran()
}
random_bucket_name <- function() {
paste0(
"targets-test-bucket-",
substr(
secretbase::siphash13(tempfile()),
start = 0,
stop = 43
)
)
}
aws_s3_delete_bucket <- function(bucket, client = paws.storage::s3()) {
region <- client$get_bucket_location(Bucket = bucket)
old <- Sys.getenv("AWS_REGION")
on.exit(Sys.setenv(AWS_REGION = old))
Sys.setenv(AWS_REGION = region)
out <- client$list_object_versions(Bucket = bucket)
for (x in out$Versions) {
args <- list(
Bucket = bucket,
Key = x$Key
)
has_version_id <- !identical(x$VersionId, "null") &&
!identical(x$VersionId, character(0))
if (has_version_id) {
args$VersionId <- x$VersionId
}
do.call(client$delete_object, args)
}
client$delete_bucket(Bucket = bucket)
}
aws_s3_delete_targets_buckets <- function(client = paws.storage::s3()) {
out <- client$list_buckets()
buckets <- unlist(
lapply(
out$Buckets,
function(x) {
x$Name
}
)
)
buckets <- grep(
pattern = "^targets-test-bucket-",
x = buckets,
value = TRUE
)
for (bucket in buckets) {
message(bucket)
aws_s3_delete_bucket(bucket, client = client)
}
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.