# \donttest{
# Example 1 ----------------------------------
modify_column_merge_ex1 <-
trial %>%
select(age, marker, trt) %>%
tbl_summary(by = trt, missing = "no") %>%
add_p(all_continuous() ~ "t.test",
pvalue_fun = ~style_pvalue(., prepend_p = TRUE)) %>%
modify_fmt_fun(statistic ~ style_sigfig) %>%
modify_column_merge(pattern = "t = {statistic}; {p.value}") %>%
modify_header(statistic ~ "**t-test**")
# Example 2 ----------------------------------
modify_column_merge_ex2 <-
lm(marker ~ age + grade, trial) %>%
tbl_regression() %>%
modify_column_merge(
pattern = "{estimate} ({ci})",
rows = !is.na(estimate)
)
# }
Run the code above in your browser using DataLab