Let install_abimo() accept additional arguments

to be passed on to download_assets()
KWB-R · Sep 27, 2023 · 5c91d97 · 5c91d97
1 parent 426b6fd
commit 5c91d97
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/R/install_abimo.R b/R/install_abimo.R
@@ -2,7 +2,7 @@
 
 #' @importFrom archive archive_extract
 #' @importFrom kwb.utils catAndRun createDirectory
-install_abimo <- function(tag = latest_abimo_version(), arch = "win64")
+install_abimo <- function(tag = latest_abimo_version(), arch = "win64", ...)
 {
   if (arch != "win64") {
     stop("Currently, the abimo executable is only available for win64")
@@ -16,7 +16,8 @@ install_abimo <- function(tag = latest_abimo_version(), arch = "win64")
     zip_files <- download_assets(
       repo = "KWB-R/abimo",
       tag = tag,
-      pattern = sprintf("abimo_%s_%s\\.", tag, arch)
+      pattern = sprintf("abimo_%s_%s\\.", tag, arch),
+      ...
     )
 
     stopifnot(length(zip_files) == 1L)