Merge pull request #87 from simpar1471/main

Prevent error when all failed `autotest` checks were of type `"no_test"` - thanks @simpar1471 for the improvements!
ropensci-review-tools · Feb 21, 2024 · 53c0693 · 53c0693
2 parents 7f76988 + f93ef5f
commit 53c0693
Showing 1 changed file with 9 additions and 3 deletions.
diff --git a/R/autotest-functions.R b/R/autotest-functions.R
@@ -159,10 +159,16 @@ autotest_single_yaml <- function (yaml = NULL,
         reports <- reports [which (!duplicated (reports)), ]
 
         # rm "no_test" tests switched off from "test_data"
-        if (test)
-            reports <- reports [which (!reports$type == "no_test"), ]
+        if (test) {
+            no_test <- reports$type == "no_test"
+            if (all (no_test)) {
+                reports <- NULL
+            } else {
+                reports <- reports [which(!no_test), ]
+                rownames (reports) <- NULL
+            }
+        }
 
-        rownames (reports) <- NULL
     }
 
     return (reports)