t1 <- trial[c("trt", "grade")] %>%
tbl_summary(by = trt) %>%
add_p()
inline_text(t1, variable = grade, level = "I", column = "Drug A", pattern = "{n}/{N} ({p})%")
inline_text(t1, variable = grade, column = "p.value")
Run the code above in your browser using DataLab