feat: Allow passing arguments to test_dir function

Appsilon · Feb 6, 2023 · b7f81ec · b7f81ec
1 parent bc9afdb
commit b7f81ec
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 3 deletions.
diff --git a/R/tools.R b/R/tools.R
@@ -2,6 +2,7 @@
 #'
 #' Uses the `{testhat}` package to run all unit tests in `tests/testthat` directory.
 #'
+#' @param ... Additional arguments passed to `testthat::test_dir()`.
 #' @return None. This function is called for side effects.
 #'
 #' @examples
@@ -10,9 +11,12 @@
 #'   test_r()
 #' }
 #' @export
-test_r <- function() {
+test_r <- function(...) {
   purge_box_cache()
-  testthat::test_dir(fs::path("tests", "testthat"))
+  testthat::test_dir(
+    path = fs::path("tests", "testthat"),
+    ...
+  )
 }
 
 lint_dir <- function(path) {

diff --git a/man/test_r.Rd b/man/test_r.Rd