Merge pull request #87 from simpar1471/main

Prevent error when all failed `autotest` checks were of type `"no_test"` - thanks @simpar1471 for the improvements!

Author: mpadge

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)