deprecation updates

NEWS.md

@@ -746,7 +746,7 @@ Updates to address regressions in the v2.0.0 release:
 
 * Added a standardized mean difference method for  `tbl_svysummary()` tables.
 
-* Added `tbl_strata(.stack_group_header=)` argument to include/exclude the headers when tables are combined with `tbl_stack()`
+* Added `tbl_strata(.stack_group_header=)` argument to include/exclude the headers when tables are combined with `tbl_stack()`.
 
 * Added `tbl_strata(.quiet=)` argument.
 

R/tbl_strata.R

@@ -100,7 +100,6 @@ tbl_strata <- function(data,
                        .combine_args = NULL,
                        .header =
                          ifelse(.combine_with == "tbl_merge", "**{strata}**", "{strata}"),
-                       .stack_group_header = NULL,
                        .quiet = NULL) {
   set_cli_abort_call()
 
@@ -127,7 +126,6 @@ tbl_strata <- function(data,
     .combine_with = .combine_with,
     .combine_args = .combine_args,
     .header = .header,
-    .stack_group_header = .stack_group_header,
     .parent_fun = "tbl_strata"
   )
 }
@@ -169,7 +167,6 @@ tbl_strata2 <- function(data,
     .combine_with = .combine_with,
     .combine_args = .combine_args,
     .header = .header,
-    .stack_group_header = .stack_group_header,
     .parent_fun = "tbl_strata2"
   )
 }

tests/testthat/test-tbl_strata.R

@@ -228,23 +228,6 @@ test_that("tbl_strata2 works with standard use", {
   expect_equal(length(tbl$tbls), 3)
 })
 
-test_that("tbl_strata(.stack_group_header) produces defunct warning", {
-  lifecycle::expect_defunct(
-    trial |>
-      select(grade, stage, trt) |>
-      mutate(grade = paste("Grade", grade)) |>
-      tbl_strata(
-        strata = grade,
-        .tbl_fun =
-          ~ .x |>
-          tbl_summary(by = trt) |>
-          add_p(),
-        .combine_with = "tbl_stack",
-        .stack_group_header = TRUE
-      )
-  )
-})
-
 test_that("tbl_strata(.quiet) produces deprecation warning", {
   lifecycle::expect_deprecated(
     trial |>