From 5aab0ece9fc8de68f6b57f32cfda560660569cca Mon Sep 17 00:00:00 2001
From: Felipe <lipecaso@gmail.com>
Date: Thu, 25 Apr 2024 21:30:46 +0000
Subject: [PATCH] change download method

---
 R/api_download.R | 8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

diff --git a/R/api_download.R b/R/api_download.R
index 87a02452..c2c176dd 100644
--- a/R/api_download.R
+++ b/R/api_download.R
@@ -123,12 +123,8 @@
         if (.file_is_local(file)) {
             file <- .file_path("file://", file, sep = "")
         }
-        # httr::GET(
-        #     url = file, httr::write_disk(path = out_file, overwrite = TRUE)
-        # )
-        download.file(
-            url = file, destfile = out_file,
-            quiet = FALSE
+        httr::GET(
+            url = file, httr::write_disk(path = out_file, overwrite = TRUE)
         )
         # Return file name
         out_file