Apply suggestions from code review

mpadge · web-flow · commit 01bb5c4f00bd · 2024-02-21T14:14:35.000+01:00
diff --git a/R/autotest-functions.R b/R/autotest-functions.R
@@ -160,21 +160,14 @@ autotest_single_yaml <- function (yaml = NULL,
 
         # rm "no_test" tests switched off from "test_data"
         if (test) {
-
             no_test <- reports$type == "no_test"
-
             if (all (no_test)) {
-
                 reports <- NULL
 
             } else {
-
                 reports <- reports [which(!no_test), ]
-
                 rownames (reports) <- NULL
-
             }
-
         }
 
     }

Original file line number	Diff line number	Diff line change
`@@ -160,21 +160,14 @@ autotest_single_yaml <- function (yaml = NULL,`
`160`	`160`
`161`	`161`	`# rm "no_test" tests switched off from "test_data"`
`162`	`162`	`if (test) {`
`163`		`-`
`164`	`163`	`no_test <- reports$type == "no_test"`
`165`		`-`
`166`	`164`	`if (all (no_test)) {`
`167`		`-`
`168`	`165`	`reports <- NULL`
`169`	`166`
`170`	`167`	`} else {`
`171`		`-`
`172`	`168`	`reports <- reports [which(!no_test), ]`
`173`		`-`
`174`	`169`	`rownames (reports) <- NULL`
`175`		`-`
`176`	`170`	`}`
`177`		`-`
`178`	`171`	`}`
`179`	`172`
`180`	`173`	`}`