Update rejection order output to be programmatic

R/graph_rejection_orderings.R

@@ -42,7 +42,13 @@ graph_rejection_orderings <- function(shortcut_test_result) {
   list_possible_orderings <- apply(
     expand.grid(rep(list(rejected), length(rejected))),
     1,
-    function(row) if (length(unique(row)) == length(row)) unname(row) else NULL
+    function(row) {
+      if (length(unique(row)) == length(row)){
+        setNames(row, hyp_names[row])
+      } else {
+        NULL
+      }
+    }
   )
   list_possible_orderings <- Filter(Negate(is.null), list_possible_orderings)
 
@@ -67,23 +73,10 @@ graph_rejection_orderings <- function(shortcut_test_result) {
     }
   }
 
-  list_orderings_code <- lapply(
-    list_possible_orderings[orderings_valid],
-    function(ordering) {
-      paste0("c(", paste(ordering, collapse = ", "), ")")
-    }
-  )
-
-  valid_orderings <- do.call(rbind, list_orderings_code)
-  dimnames(valid_orderings) <- list(
-    seq_len(length(list_orderings_code)),
-    "Valid rejection orderings"
-  )
-
   structure(
     c(
       shortcut_test_result,
-      list(valid_orderings = valid_orderings)
+      list(valid_orderings = list_possible_orderings[orderings_valid])
     ),
     class = "graph_report"
   )

R/print.graph_report.R

@@ -237,11 +237,13 @@ print.graph_report <- function(x, ..., precision = 4, indent = 2, rows = 10) {
   if (!is.null(x$valid_orderings)) {
     section_break("Alternate rejection orderings ($valid_rejection_orderings)")
 
-    apply(
-      x$valid_orderings, 1,
-      function(ordering) cat(pad, ordering, "\n", sep = "")
+    lapply(
+      x$valid_orderings,
+      function(ordering) {
+        print(ordering)
+        cat("\n")
+      }
     )
-    cat("\n")
   }
 
   invisible(x)