From 69a2deb9e5488102d8fafd55a5fbbaf793e84e13 Mon Sep 17 00:00:00 2001
From: Jeff Binggeli <jeff.binggeli@cfacorp.com>
Date: Wed, 6 Oct 2021 09:49:28 -0400
Subject: [PATCH] Update s3sync.R

if parameter verbose is TRUE, then print keys within bucket; do not print keys if verbose is FALSE
---
 R/s3sync.R | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/R/s3sync.R b/R/s3sync.R
index 4a8ad5f..ce1efd4 100644
--- a/R/s3sync.R
+++ b/R/s3sync.R
@@ -80,8 +80,10 @@ s3sync <- function(path = ".", bucket, prefix = "", direction = c("upload", "dow
     ## list all object keys
     s3.names <- unname(unlist(lapply(b, `[[`, "Key")))
 
-    cat("all keys:\n")
-    print(s3.names)
+    if (isTrue(verbose)) {
+        cat("all keys:\n")
+        print(s3.names)
+    }
 
     ## filter only objects matching the prefix
     if (nchar(prefix)) {