feat: Allow passing arguments to test_dir function

Appsilon · Feb 3, 2023 · 3021524 · 3021524
1 parent 6696e81
commit 3021524
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,8 +11,11 @@
 #'   test_r()
 #' }
 #' @export
-test_r <- function() {
-  testthat::test_dir(fs::path("tests", "testthat"))
+test_r <- function(...) {
+  testthat::test_dir(
+    path = fs::path("tests", "testthat"),
+    ...
+  )
 }
 
 lint_dir <- function(path) {

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