show file name when uploading or downloading

ropensci · Oct 9, 2018 · 3d848aa · 3d848aa
1 parent a6aa667
commit 3d848aa
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 1 deletion.
diff --git a/R/pb_download.R b/R/pb_download.R
@@ -130,6 +130,10 @@ gh_download_asset <- function(owner,
     return(NULL)
   }
 
+  if (!is.null(progress)) {
+    message(paste("downloading", basename(destfile), "..."))
+  }
+
   resp <- httr::GET(
     paste0(
       "https://api.github.com/repos/", owner, "/",

diff --git a/R/pb_upload.R b/R/pb_upload.R
@@ -114,7 +114,9 @@ pb_upload_file <- function(file,
     }
   }
 
-
+  if (!is.null(progress)) {
+    message(paste("uploading", name, "..."))
+}
   r <- httr::POST(sub("\\{.+$", "", df$upload_url[[1]]),
                   query = list(name = asset_filename(name)),
                   body = httr::upload_file(file),