diff --git a/R/drive_download.R b/R/drive_download.R index 9b94041e5..7db289778 100644 --- 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"))