R/bucketlist.R

In neurohcp: Human 'Connectome' Project Interface

#' @title Retrieve S3 Bucket List
#' @description Lists the Buckets available with the Key/Secrete
#' @param region Region of S3 Bucket
#' @param access_key Amazon S3 Access Key
#' @param secret_key Amazon S3 Secret Key
#' @param ... arguments to pass to \code{\link{bucket_list_df}}
#'
#' @return List of Buckets
#' @export
#'
#' @examples
#' if (have_aws_key()){
#' bucketlist()
#' }
bucketlist <- function(
  region = "us-east-1",
  access_key = NULL,
  secret_key = NULL,
  ...) {

  res = aws.s3::bucket_list_df(
    region = region,
    key = access_key,
    secret = secret_key,
    ...)
  return(res)
  #
  # ret = get_hcp_file(
  #   path_to_file = "",
  #   bucket = "",
  #   access_key = access_key,
  #   secret_key = secret_key,
  #   region = region,
  #   ...)
  # httr::stop_for_status(ret)
  # cr = httr::content(ret, as = "text", encoding = "UTF-8")
  # dtype = ret$headers$`content-type`
  #
  # if (cr != "") {
  #   if (grepl("html", dtype)) {
  #     warning(paste0("Response was html from amazon, returning ",
  #                    "output rather than parsing"))
  #     return(ret)
  #   }
  #   res = read_xml(cr)
  #   res = as_list(res)
  #   if ("ListAllMyBucketsResult" %in% names(res)) {
  #     res = res$ListAllMyBucketsResult
  #   }
  #   res = res$Buckets
  #   res = t(sapply(res, unlist))
  #   rownames(res) = NULL
  #   res = as.data.frame(res, stringsAsFactors = FALSE)
  # } else {
  #   res = NULL
  # }
  #
  # return(res)
}