# Example 1 ----------------------------------
library(dplyr, warn.conflicts = FALSE, quietly = TRUE)
remove_row_type_ex1 <-
trial %>%
select(trt, age) %>%
mutate(
age60 = case_when(age < 60 ~ "<60", age >= 60 ~ "60+")
) %>%
tbl_summary(by = trt, missing = "no") %>%
remove_row_type(age60, type = "header")
Run the code above in your browser using DataLab