PROPOSAL: Use prettyunits::pretty_bytes to prettify logging for multipart suggestion in put_object

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: aws.s3
 Type: Package
 Title: 'AWS S3' Client Package
-Version: 0.3.22
+Version: 0.3.23
 Authors@R: c(person("Thomas J.", "Leeper", role = "aut",
                     email = "thosjleeper@gmail.com",
                     comment = c(ORCID = "0000-0003-4097-6326")),
@@ -15,6 +15,7 @@ Authors@R: c(person("Thomas J.", "Leeper", role = "aut",
              person("Andrii", "Degtiarov", role = "ctb"),
              person("Dhruv", "Aggarwal", role = "ctb"),
              person("Alyssa", "Columbus", role = "ctb"),
+             person("Matt", "Kaye", role = "ctb"),
              person("Simon", "Urbanek", role = c("cre", "ctb"),
                     email = "simon.urbanek@R-project.org")
 	     )
@@ -33,7 +34,8 @@ Imports:
     xml2 (> 1.0.0),
     base64enc,
     digest,
-    aws.signature (>= 0.3.7)
+    aws.signature (>= 0.3.7),
+    prettyunits
 Suggests:
     testthat,
     datasets

NAMESPACE

@@ -93,6 +93,7 @@ importFrom(curl,curl)
 importFrom(curl,handle_setheaders)
 importFrom(curl,new_handle)
 importFrom(digest,digest)
+importFrom(prettyunits,pretty_bytes)
 importFrom(tools,file_ext)
 importFrom(tools,md5sum)
 importFrom(utils,URLencode)

NEWS.md

@@ -1,3 +1,10 @@
+# aws.s3 0.3.23
+
+## Features
+
+* `put_object` now uses `prettyunits::pretty_bytes` to prettify log messages printed when suggesting
+using `multipart = TRUE`.
+
 # aws.s3 0.3.22
 
 ## API changes

R/put_object.R

@@ -68,6 +68,7 @@
 #' @references \href{http://docs.aws.amazon.com/AmazonS3/latest/API/RESTObjectPUT.html}{API Documentation}
 #' @seealso \code{\link{put_bucket}}, \code{\link{get_object}}, \code{\link{delete_object}}, \code{\link{put_encryption}}
 #' @importFrom utils head
+#' @importFrom prettyunits pretty_bytes
 #' @export
 put_object <-
 function(
@@ -247,7 +248,7 @@ function(
     }
 
     if (!is.na(size) && size > partsize)
-        message("File size is ", size, ", consider setting using multipart=TRUE")
+        message("File size is ", pretty_bytes(size), ", consider setting using multipart=TRUE")
 
     ## httr doesn't support connections so we have to read it all into memory first
     if (inherits(what, "connection")) {