change download method

e-sensing · Apr 25, 2024 · 5aab0ec · 5aab0ec
1 parent 020bb18
commit 5aab0ec
Showing 1 changed file with 2 additions and 6 deletions.
diff --git a/R/api_download.R b/R/api_download.R
@@ -123,12 +123,8 @@
  if (.file_is_local(file)) {
  file <- .file_path("file:https://", 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