Fix integrations tests after ref_group update

tests/testthat/test-compare_variables.R

@@ -92,7 +92,7 @@ testthat::test_that("s_compare for logical handles NAs as FALSE if not removed",
 
 testthat::test_that("compare_vars works with default settings in rtables layout pipeline", {
   lyt <- basic_table() %>%
-    split_cols_by("ARMCD", ref_group = "ARM B") %>%
+    split_cols_by("ARMCD", ref_group = "ARM B", split_fun = ref_group_position("first")) %>%
     compare_vars(c("AGE", "SEX"))
   result <- build_table(lyt, tern_ex_adsl)
 
@@ -102,7 +102,7 @@ testthat::test_that("compare_vars works with default settings in rtables layout
 
 testthat::test_that("compare_vars works with custom settings", {
   lyt <- basic_table() %>%
-    split_cols_by("ARMCD", ref_group = "ARM C") %>%
+    split_cols_by("ARMCD", ref_group = "ARM C", split_fun = ref_group_position("first")) %>%
     compare_vars(
       c("AGE", "SEX"),
       .stats = c("mean_sd", "count_fraction", "pval"),
@@ -117,7 +117,7 @@ testthat::test_that("compare_vars works with custom settings", {
 
 testthat::test_that("compare_vars 'na_str' argument works as expected", {
   result <- basic_table() %>%
-    split_cols_by("ARMCD", ref_group = "ARM B") %>%
+    split_cols_by("ARMCD", ref_group = "ARM B", split_fun = ref_group_position("first")) %>%
     compare_vars("ARM", na_str = "-") %>%
     build_table(tern_ex_adsl)
 
@@ -132,7 +132,9 @@ testthat::test_that("create_afun_compare returns error message", {
 })
 
 testthat::test_that("a_compare returns correct output and warning message", {
-  testthat::expect_warning(result <- a_compare(rnorm(10, 5, 1), .ref_group = rnorm(20, -5, 1), .stats = c("n", "pval")))
+  testthat::expect_warning({
+    result <- a_compare(rnorm(10, 5, 1), .ref_group = rnorm(20, -5, 1), .stats = c("n", "pval"))
+  })
   expected <- a_summary(rnorm(10, 5, 1), .ref_group = rnorm(20, -5, 1), .stats = c("n", "pval"), compare = TRUE)
 
   testthat::expect_equal(result, expected)

tests/testthat/test-odds_ratio.R

@@ -120,7 +120,7 @@ testthat::test_that("estimate_odds_ratio estimates right OR and CI (stratified a
   )
 
   result <- basic_table() %>%
-    split_cols_by(var = "grp", ref_group = "A") %>%
+    split_cols_by(var = "grp", ref_group = "A", split_fun = ref_group_position("first")) %>%
     estimate_odds_ratio(vars = "rsp", variables = list(arm = "grp", strata = "strata")) %>%
     build_table(df = data)
 

tests/testthat/test-prop_diff.R

@@ -257,7 +257,7 @@ testthat::test_that("`estimate_proportion_diff` and cmh is compatible with `rtab
     stringsAsFactors = TRUE
   )
   l <- basic_table() %>%
-    split_cols_by(var = "grp", ref_group = "B") %>%
+    split_cols_by(var = "grp", ref_group = "B", split_fun = ref_group_position("first")) %>%
     estimate_proportion_diff(
       vars = "rsp",
       variables = list(strata = c("f1", "f2")),

tests/testthat/test-split_cols_by_groups.R

@@ -111,7 +111,7 @@ testthat::test_that("split_cols_by_groups equivalent to split_cols_by with ref_c
     }
   }
   result <- basic_table() %>%
-    split_cols_by_groups("ARM", ref_group = "B: Placebo") %>%
+    split_cols_by_groups("ARM", ref_group = "B: Placebo", split_fun = ref_group_position("first")) %>%
     add_colcounts() %>%
     analyze("AGE", afun = afun) %>%
     build_table(DM)

tests/testthat/test-summarize_glm_count.R

@@ -277,7 +277,7 @@ testthat::test_that("summarize_glm_count works with healthy inputs", {
     filter(PARAMCD == "TNE")
   anl$AVAL_f <- as.factor(anl$AVAL)
   result <- basic_table() %>%
-    split_cols_by("ARM", ref_group = "B: Placebo") %>%
+    split_cols_by("ARM", ref_group = "B: Placebo", split_fun = ref_group_position("first")) %>%
     add_colcounts() %>%
     analyze_vars(
       "AVAL_f",

tests/testthat/test-test_proportion_diff.R

@@ -122,7 +122,7 @@ testthat::test_that("test_proportion_diff returns right result", {
   )
 
   result <- basic_table() %>%
-    split_cols_by(var = "grp", ref_group = "B") %>%
+    split_cols_by(var = "grp", ref_group = "B", split_fun = ref_group_position("first")) %>%
     test_proportion_diff(
       vars = "rsp",
       method = "cmh", variables = list(strata = "strat")
@@ -140,7 +140,7 @@ testthat::test_that("test_proportion_diff edge case: all responder by chisq", {
   )
 
   result <- basic_table() %>%
-    split_cols_by(var = "grp", ref_group = "B") %>%
+    split_cols_by(var = "grp", ref_group = "B", split_fun = ref_group_position("first")) %>%
     test_proportion_diff(
       vars = "rsp",
       method = c("chisq", "schouten", "fisher", "cmh")[1]
@@ -158,7 +158,7 @@ testthat::test_that("test_proportion_diff edge case: all responder by schouten",
   )
 
   result <- basic_table() %>%
-    split_cols_by(var = "grp", ref_group = "B") %>%
+    split_cols_by(var = "grp", ref_group = "B", split_fun = ref_group_position("first")) %>%
     test_proportion_diff(
       vars = "rsp",
       method = c("chisq", "schouten", "fisher", "cmh")[2]
@@ -176,7 +176,7 @@ testthat::test_that("test_proportion_diff edge case: all responder by fisher", {
   )
 
   result <- basic_table() %>%
-    split_cols_by(var = "grp", ref_group = "B") %>%
+    split_cols_by(var = "grp", ref_group = "B", split_fun = ref_group_position("first")) %>%
     test_proportion_diff(
       vars = "rsp",
       var_labels = "Variable Label",
@@ -197,7 +197,7 @@ testthat::test_that("test_proportion_diff edge case: all responder by CMH", {
   )
 
   result <- basic_table() %>%
-    split_cols_by(var = "grp", ref_group = "B") %>%
+    split_cols_by(var = "grp", ref_group = "B", split_fun = ref_group_position("first")) %>%
     test_proportion_diff(
       vars = "rsp",
       var_labels = "Variable Label",