Allow to pass "extra" argument to download.file

KWB-R · Sep 27, 2023 · 426b6fd · 426b6fd
1 parent 0454494
commit 426b6fd
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/R/install_abimo.R b/R/install_abimo.R
@@ -41,7 +41,8 @@ download_assets <- function(
     tag,
     destdir = tempdir(),
     pattern = NULL,
-    accept = "application/octet-stream"
+    accept = "application/octet-stream",
+    extra = "--connect-timeout 60"
 )
 {
   asset_info <- get_asset_info(repo, tag)
@@ -62,7 +63,8 @@ download_assets <- function(
         Authorization = paste("token", github_pat()),
         Accept = accept
       ),
-      mode = "wb"
+      mode = "wb",
+      extra = extra
     )
   }