From fd2eab449f7d70109fc9449339a3434f62bd3bcb Mon Sep 17 00:00:00 2001
From: Christoph Stepper <christoph.stepper@metergroup.com>
Date: Mon, 13 Sep 2021 11:55:35 +0200
Subject: [PATCH] parse_aws_s3_response: print(out) only if isTRUE(verbose)

---
 R/s3HTTP.R | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/R/s3HTTP.R b/R/s3HTTP.R
index 503c64c..2c76e5e 100644
--- a/R/s3HTTP.R
+++ b/R/s3HTTP.R
@@ -256,7 +256,9 @@ parse_aws_s3_response <- function(r, Sig, verbose = getOption("verbose")){
         attr(out, "request_canonical") <- Sig$CanonicalRequest
         attr(out, "request_string_to_sign") <- Sig$StringToSign
         attr(out, "request_signature") <- Sig$SignatureHeader
-        print(out)
+        if (isTRUE(verbose)) {
+          print(out)
+        }
         httr::stop_for_status(r)
     }
     return(response)