#' @rdname utilities
#' @title Utility Functions
#' @description Some utility functions for working with S3 objects and buckets
#' @param x An object.
#' @param \dots Ignored.
#' @return \code{get_bucketname} returns a character string.
#' @export
get_bucketname <- function(x, ...) {
UseMethod("get_bucketname")
}
#' @rdname utilities
#' @export
get_bucketname.character <- function(x, ...) {
if (grepl("^s3://", x)) {
x <- substring(x, 6, nchar(x))
substring(x, 1, regexpr("/", x)-1L)
} else {
x
}
}
#' @rdname utilities
#' @export
get_bucketname.s3_bucket <- function(x, ...) {
attributes(x)[["Name"]]
}
#' @rdname utilities
#' @export
get_bucketname.s3_object <- function(x, ...) {
x[["Bucket"]]
}
# get_region
get_region <- function(x, ...) {
UseMethod("get_region")
}
get_region.default <- function(x, ...) {
out <- get_location(bucket = x, ...)
if (!is.character(out)) {
stop("Cannot detect correct region from bucket")
}
out
}
get_region.s3_bucket <- function(x, ...) {
region <- attributes(x)[["x-amz-bucket-region"]]
if (is.null(region)) {
region <- get_location(bucket = attributes(x)[["Name"]], ...)
}
region
}
# get_objectkey
get_objectkey <- function(x, ...) {
UseMethod("get_objectkey")
}
get_objectkey.character <- function(x, ...) {
if (grepl("^s3://", x)) {
x <- substring(x, 6, nchar(x))
substring(x, regexpr("/", x)+1L, nchar(x))
} else {
gsub("^/{1}", "", x)
}
}
get_objectkey.s3_object <- function(x, ...) {
gsub("^/{1}", "", x[["Key"]])
}
#' @export
as.data.frame.s3_bucket <- function(x, row.names = NULL, optional = FALSE, ...) {
if (length(x)) {
out <- lapply(x, function(z) {
c(Key = z[["Key"]],
LastModified = z[["LastModified"]],
ETag = z[["ETag"]],
Size = z[["Size"]],
StorageClass = z[["StorageClass"]],
Bucket = z[["Bucket"]])
})
op <- options(stringsAsFactors = FALSE)
on.exit(options(op))
out <- do.call("rbind.data.frame", unname(out))
names(out) <- c("Key", "LastModified", "ETag", "Size", "StorageClass", "Bucket")
structure(out, row.names = if(!is.null(row.names)) row.names else seq_len(nrow(out)),
Marker = attributes(x)[["Marker"]],
IsTruncated = attributes(x)[["IsTruncated"]],
MaxKeys = attributes(x)[["MaxKeys"]])
} else {
structure(list(Key = character(0),
LastModified = character(0),
ETag = character(0),
Size = character(0),
StorageClass = character(0),
Bucket = character(0)),
class = "data.frame",
row.names = character(0),
Marker = attributes(x)[["Marker"]],
IsTruncated = attributes(x)[["IsTruncated"]],
MaxKeys = attributes(x)[["MaxKeys"]])
}
}
flatten_list <- function(x) {
if (is.list(x)) {
if ((class(x) != "list") || (length(class(x)) > 1)) {
return(x)
} else {
if (length(x) == 1) {
return(flatten_list(x[[1]]))
} else {
return(lapply(x, flatten_list))
}
}
} else {
return(x)
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.