diff --git a/R/s3functions.R b/R/s3functions.R index e17d988..8cf2237 100644 --- a/R/s3functions.R +++ b/R/s3functions.R @@ -16,7 +16,7 @@ listS3Objects <- function(bucket) { message("Pulling S3 tag list(s).") if (bucket == "fh-pi-paguirigan-a-genomicsrepo") { keys <- aws.s3::get_bucket_df(bucket = bucket, - prefix = "apptags/meta/")$Key + prefix = "tg/apptags/")$Key keys <- keys[grepl("*.listing.csv", keys)] } else { keys <- paste0("tg/apptags/", bucket, "-listing.csv") } @@ -45,7 +45,7 @@ summarizeS3Objects <- function(bucket) { message("Pulling S3 object summary.") if (bucket == "fh-pi-paguirigan-a-genomicsrepo") { - keys <- aws.s3::get_bucket_df(bucket = bucket, prefix = "apptags/summary/")$Key + keys <- aws.s3::get_bucket_df(bucket = bucket, prefix = "tg/apptags/summary/")$Key } else { keys <- paste0("tg/apptags/", bucket, "-summary.csv") } diff --git a/man/listS3Objects.Rd b/man/listS3Objects.Rd index 8dfc31c..b8b2e91 100644 --- a/man/listS3Objects.Rd +++ b/man/listS3Objects.Rd @@ -13,10 +13,10 @@ listS3Objects(bucket) Returns a long form data frame of objects in the indicated S3 bucket(s). } \description{ -Pulls Information from the results of s3tagcrawler for TGR that are in an S3 bucket, including the object list and their tags as well as size metadata. +Pulls metadata about all files in S3 that are accessible to the Repository such as tags, name, and sizes. } \details{ -Requires valid S3 credentials to be set in the environment by setCreds. +Requires valid S3 credentials to be set in the environment by setCreds (now "AWS_ACCESS_KEY_ID" and "AWS_SECRET_ACCESS_KEY"). } \author{ Amy Paguirigan