From 5c91d97f73d1f72df16bf26c44df636a13fd5127 Mon Sep 17 00:00:00 2001 From: hsonne Date: Wed, 27 Sep 2023 10:50:47 +0200 Subject: [PATCH] Let install_abimo() accept additional arguments to be passed on to download_assets() --- R/install_abimo.R | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/R/install_abimo.R b/R/install_abimo.R index a48f94e..777bd37 100644 --- 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)