Deparse an expression into a string
.
Examples
expr <- quote(
rtables::basic_table() %>%
rtables::split_cols_by(var = "ARMCD") %>%
test_proportion_diff(
vars = "rsp", method = "cmh", variables = list(strata = "strat")
) %>%
rtables::build_table(df = dta)
)
teal.modules.clinical:::h_concat_expr(expr)
#> [1] "rtables::basic_table() %>% rtables::split_cols_by(var = \"ARMCD\") %>% test_proportion_diff(vars = \"rsp\", method = \"cmh\", variables = list(strata = \"strat\")) %>% rtables::build_table(df = dta)"