diff --git a/R/autotest-functions.R b/R/autotest-functions.R index fcd68b8..9f88a5a 100644 --- 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)