Process response after download failure

Relates to #399
tidyverse · Oct 5, 2022 · 15622e7 · 15622e7
1 parent 0bb0070
commit 15622e7
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/R/drive_download.R b/R/drive_download.R
@@ -114,6 +114,11 @@ drive_download <- function(file,
       "*" = "{.path {path}}"
     ))
   } else {
+    # drop this in to allow a post mortem inspection of failure
+    # not how this would be wired up "in production"
+    # puts the response within reach of the unexported functions
+    # gargle:::gargle_last_response() and gargle:::gargle_last_content()
+    gargle::response_process(response)
     drive_abort("Download failed.")
   }
   invisible(put_column(file, nm = "local_path", val = path, .after = "name"))