R/print.R

In aws.s3: 'AWS S3' Client Package

#' @export
print.s3_bucket <- function(x, ...){
    cat("Bucket:", attributes(x)[["Name"]], "\n\n")
    print(x[names(x) == "Contents"], ...)
    invisible(x)
}

#' @export
print.s3_object <- function(x, ...){
    cat("Key:           ", x$Key, "\n")
    cat("LastModified:  ", x$LastModified, "\n")
    cat("ETag:          ", x$ETag, "\n")
    cat("Size (B):      ", x$Size, "\n")
        if(is.atomic(x$Owner)){
        cat("Owner:         ", x$Owner, "\n")    
    }
    else{
        cat("Owner:         ", x$Owner$DisplayName, "\n")   
    }
    cat("Storage class: ", x$StorageClass, "\n")
    invisible(x)
}

#' @importFrom utils str
#' @export
print.aws_error <- function(x, verbose = getOption("verbose"), ...){
    if (isTRUE(verbose)) {
        message("AWS API Error Encountered. Details below:")
    }
    print(str(x))
    invisible(x)
}