R/tag_file.R

In FredHutch/tgR.data: Data Management Support for Fred Hutch Translational Genomics

#' Tags new files in S3 with a unique id
#'
#' @param bucket_name (Required) Bucket where the file is stored
#' @param object_key (Required) Key of the file in S3 (such as tg/projectA/file.csv)
#' @return Returns uuid of the object tagged.
#' @export
#'
tag_file <- function(bucket_name = NULL, object_key = NULL) {
  if(any(sapply(formals(), is.null))) {stop("Please provide all required inputs.")}
  check_aws_credentials()
  check_s3meta_credentials()
  message("Tagging file in S3.")

  invalid <- ""
  while (is.na(invalid)==F) {
    newuuid <- uuid::UUIDgenerate()
    invalid <- validate_uuid(newuuid)
  }
  results <- paws.storage::s3()$put_object_tagging(
    Bucket = bucket_name,
    Key = object_key,
    Tagging = list(
      TagSet = list(list(Key = "uuid",Value = newuuid))))
  message(paste0("Tagged file with version id: ", results$VersionId))
  return(newuuid)
}