feat: Adding codecov_fun argument coherence checking in inflate()

#256
ThinkR-open · Jun 12, 2024 · dfb2add · dfb2add
1 parent d97b4a6
commit dfb2add
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 1 deletion.
diff --git a/R/inflate.R b/R/inflate.R
@@ -371,7 +371,15 @@ inflate <- function(pkg = ".", flat_file,
   )
 
   if (codecov) {
-    if (!codecov_fun %in% c("package_coverage", "report")) {
+    codecov_fun <- try(
+      match.arg(
+        codecov_fun,
+        c("package_coverage", "report"),
+        several.ok = FALSE
+      ),
+      silent = TRUE
+    )
+    if (inherits(codecov_fun, "try-error")) {
       cli::cli_abort("codecov_fun must be either 'package_coverage' or 'report'")
     }
 

diff --git a/tests/testthat/test-inflate-part3.R b/tests/testthat/test-inflate-part3.R
@@ -13,6 +13,7 @@ usethis::with_project(dummypackage, {
     open = FALSE,
     overwrite = TRUE
   )
+
   capture.output(
     inflate(
       pkg = dummypackage,