diff --git a/main/coverage-report/index.html b/main/coverage-report/index.html index 951ec40d1b..8b2b552a0f 100644 --- a/main/coverage-report/index.html +++ b/main/coverage-report/index.html @@ -106,8 +106,8 @@

tern coverage - 94.61%

-
- +
+
@@ -74173,28 +74173,28 @@

tern coverage - 94.61%

69 - 7x + 19x
  make_split_fun(
70 - 7x + 19x
    post = list(
71 - 7x + 19x
      function(splret, spl, fulldf) {
72 - 19x + 54x
        if (!"ref_group_value" %in% methods::slotNames(spl)) {
@@ -74222,21 +74222,21 @@

tern coverage - 94.61%

76 - 18x + 53x
        spl_var <- rtables:::spl_payload(spl)
77 - 18x + 53x
        fulldf[[spl_var]] <- factor(fulldf[[spl_var]])
78 - 18x + 53x
        init_lvls <- levels(fulldf[[spl_var]])
@@ -74250,7 +74250,7 @@

tern coverage - 94.61%

80 - 18x + 53x
        if (!all(names(splret$values) %in% init_lvls)) {
@@ -74278,28 +74278,28 @@

tern coverage - 94.61%

84 - 18x + 53x
        ref_group_pos <- which(init_lvls == rtables:::spl_ref_group(spl))
85 - 18x + 53x
        pos_choices <- c("first", "last")
86 - 18x + 53x
        if (checkmate::test_choice(position, pos_choices) && position == "first") {
87 - 3x + 38x
          pos <- 0
@@ -74362,14 +74362,14 @@

tern coverage - 94.61%

96 - 18x + 53x
        reord_lvls <- append(init_lvls[-ref_group_pos], init_lvls[ref_group_pos], after = pos)
97 - 18x + 53x
        ord <- match(reord_lvls, names(splret$values))
@@ -74383,28 +74383,28 @@

tern coverage - 94.61%

99 - 18x + 53x
        make_split_result(
100 - 18x + 53x
          splret$values[ord],
101 - 18x + 53x
          splret$datasplit[ord],
102 - 18x + 53x
          splret$labels[ord]