[skip style] [skip vbump] Restyle files

insightsengineering · Feb 12, 2025 · 0a71e06 · 0a71e06
1 parent 59d4563
commit 0a71e06
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 6 deletions.
diff --git a/R/tt_dotabulation.R b/R/tt_dotabulation.R
@@ -569,7 +569,7 @@ gen_rowvalues <- function(dfpart,
   )
 
   # Adding section_div for DataRows (analyze leaves)
-  #kids <- .set_kids_section_div(kids, spl_section_div(spl), "DataRow")
+  # kids <- .set_kids_section_div(kids, spl_section_div(spl), "DataRow")
 
   if (is(kids, "error")) {
     stop("Error applying analysis function (var - ",

diff --git a/tests/testthat/test-accessors.R b/tests/testthat/test-accessors.R
@@ -244,7 +244,7 @@ test_structure_with_a_getter <- function(tbl, getter, val_per_lev) {
     expect_identical(tree_children(content_elem_tbl)[[1]] %>% getter(), val_per_lev$contentrow)
   }
 
-  ## The elementary table has it?  
+  ## The elementary table has it?
   leaves_elementary_tbl <- tree_children(split1)[[1]]
   expect_identical(leaves_elementary_tbl %>% getter(), val_per_lev$elem_tbl)
   expect_identical(tt_labelrow(leaves_elementary_tbl) %>% getter(), val_per_lev$elem_tbl_labelrow)

diff --git a/tests/testthat/test-printing.R b/tests/testthat/test-printing.R
@@ -432,14 +432,14 @@ test_that("analyze section_div works correctly", {
   lns2 <- capture.output(print(tbl2))
   expect_equal(grep("^[*]*$", lns2), c(8, 14))
 
-  lyt3  <- basic_table() %>%
+  lyt3 <- basic_table() %>%
     analyze("SEX", section_div = " ") %>%
     analyze("STRATA1")
   tbl3 <- build_table(lyt3, ex_adsl)
   lns3 <- capture.output(print(tbl3))
   expect_equal(grep("^[ ]*$", lns3), 8)
 
-  lyt4 <-  basic_table() %>%
+  lyt4 <- basic_table() %>%
     split_rows_by("STRATA1", section_div = "*") %>%
     analyze("SEX", section_div = " ") %>%
     analyze("STRATA1")
@@ -448,10 +448,10 @@ test_that("analyze section_div works correctly", {
   expect_equal(grep("^[[:space:]]*$", lns4), c(9, 21, 33))
   expect_equal(grep("^[*]*$", lns4), c(14, 26))
 
-  lyt5 <-  basic_table() %>%
+  lyt5 <- basic_table() %>%
     split_rows_by("STRATA1", section_div = "*") %>%
     analyze(c("SEX", "STRATA1"), section_div = " ")
-  tbl5 <- build_table(lyt5, ex_adsl)      
+  tbl5 <- build_table(lyt5, ex_adsl)
   lns5 <- capture.output(print(tbl5))
   expect_identical(lns4, lns5)
 })