Merge pull request #163 from atorus-research/gh_issue_129

Changes reviewed and approved
atorus-research · Dec 18, 2023 · 9a17f5c · 9a17f5c
2 parents 1f26ff6 + 5e5d244
commit 9a17f5c
Show file tree

Hide file tree

Showing 2 changed files with 22 additions and 22 deletions.
diff --git a/R/collapse_row_labels.R b/R/collapse_row_labels.R
@@ -29,17 +29,17 @@ add_indentation <- function(.x, .y, indent = " ") {
 #' @examples
 #' x <- tibble::tribble(
 #' ~row_label1, ~row_label2, ~row_label3, ~row_label4, ~var1,
-#' "A", "C", "G", "M", 1L,
-#' "A", "C", "G", "N", 2L,
-#' "A", "C", "H", "O", 3L,
-#' "A", "D", "H", "P", 4L,
-#' "A", "D", "I", "Q", 5L,
-#' "A", "D", "I", "R", 6L,
-#' "B", "E", "J", "S", 7L,
-#' "B", "E", "J", "T", 8L,
-#' "B", "E", "K", "U", 9L,
-#' "B", "F", "K", "V", 10L,
-#' "B", "F", "L", "W", 11L
+#' "A", "C", "G", "M",  1L,
+#' "A", "C", "G", "N",  2L,
+#' "A", "C", "H", "O",  3L,
+#' "A", "D", "H", "P",  4L,
+#' "A", "D", "I", "Q",  5L,
+#' "A", "D", "I", "R",  6L,
+#' "B", "E", "J", "S",  7L,
+#' "B", "E", "J", "T",  8L,
+#' "B", "E", "K", "U",  9L,
+#' "B", "F", "K", "V",  10L,
+#' "B", "F", "L", "W",  11L
 #' )
 #'
 #'

diff --git a/tests/testthat/test-collapse_row_labels.R b/tests/testthat/test-collapse_row_labels.R
@@ -1,16 +1,16 @@
 dat <- tibble::tribble(
  ~row_label1, ~row_label2, ~row_label3, ~row_label4, ~var1,
- "A", "C", "G", "M", 1L,
- "A", "C", "G", "N", 2L,
- "A", "C", "H", "O", 3L,
- "A", "D", "H", "P", 4L,
- "A", "D", "I", "Q", 5L,
- "A", "D", "I", "R", 6L,
- "B", "E", "J", "S", 7L,
- "B", "E", "J", "T", 8L,
- "B", "E", "K", "U", 9L,
- "B", "F", "K", "V", 10L,
- "B", "F", "L", "W", 11L
+ "A", "C", "G", "M",  1L,
+ "A", "C", "G", "N",  2L,
+ "A", "C", "H", "O",  3L,
+ "A", "D", "H", "P",  4L,
+ "A", "D", "I", "Q",  5L,
+ "A", "D", "I", "R",  6L,
+ "B", "E", "J", "S",  7L,
+ "B", "E", "J", "T",  8L,
+ "B", "E", "K", "U",  9L,
+ "B", "F", "K", "V",  10L,
+ "B", "F", "L", "W",  11L
 )