Deprecation updates

ddsjoberg · Feb 18, 2025 · 8ffb305 · 8ffb305
1 parent 9a87da1
commit 8ffb305
Show file tree

Hide file tree

Showing 2 changed files with 0 additions and 21 deletions.
diff --git a/R/deprecated.R b/R/deprecated.R
@@ -23,9 +23,6 @@ NULL
 #   v1.6.2 2022-09-30
 #   v1.6.1 2022-06-22
 #   v1.6.0 2022-04-25
-#   v1.5.2 2022-01-29
-#   v1.5.1 2022-01-20
-#   v1.5.0 2021-10-16
 
 
 # v1.6.1 ----------------------------------------------------------

diff --git a/R/tbl_strata.R b/R/tbl_strata.R
@@ -35,7 +35,6 @@
 #'     - `N` Overall N
 #'
 #'   The evaluated value of `.header` is also available within `tbl_strata2(.tbl_fun)`
-#' @param .stack_group_header `r lifecycle::badge("deprecated")`
 #' @param .quiet `r lifecycle::badge("deprecated")`
 #'
 #' @section Tips:
@@ -144,7 +143,6 @@ tbl_strata2 <- function(data,
                         .combine_args = NULL,
                         .header =
                           ifelse(.combine_with == "tbl_merge", "**{strata}**", "{strata}"),
-                        .stack_group_header = NULL,
                         .quiet = TRUE) {
   set_cli_abort_call()
 
@@ -184,7 +182,6 @@ tbl_strata_internal <- function(data,
                                 .combine_with = c("tbl_merge", "tbl_stack"),
                                 .combine_args = NULL,
                                 .header = NULL,
-                                .stack_group_header = NULL,
                                 .parent_fun) {
   check_string(.header)
 
@@ -245,21 +242,6 @@ tbl_strata_internal <- function(data,
         )
     )
 
-  # deprecated argument --------------------------------------------------------
-  if (!is.null(.stack_group_header) && isTRUE(.combine_with == "tbl_stack")) {
-    lifecycle::deprecate_stop(
-      when = "1.5.1",
-      what = "gtsummary::tbl_strata(.stack_group_header)",
-      details =
-        switch(isFALSE(.stack_group_header),
-               glue(
-                 "Use the following instead:\n",
-                 "gtsummary::tbl_strata(.combine_args = list(group_header = NULL))"
-               )
-        )
-    )
-  }
-
   # combining tbls -------------------------------------------------------------
   .combine_args <-
     # default arguments