expr <- quote({
library(rtables)
basic_table() %>%
split_cols_by(var = "ARMCD") %>%
test_proportion_diff(
vars = "rsp", method = "cmh", variables = list(strata = "strata")
) %>%
build_table(df = dta)
})
h_concat_expr(expr)
Run the code above in your browser using DataLab