如何在gtsummary和by中包含比例的置信区间？

install.packages("gtsummary")
install.packages("by")

library(gtsummary)
library(by)

data <- data.frame(
  group = c("A", "A", "B", "B"),
  outcome = c(1, 0, 1, 1)
)

result <- by(data$outcome, data$group, FUN = function(x) prop.test(sum(x), length(x))$conf.int)

tbl <- tbl_summary(data, by = group) %>%
  add_p(result, location = "by")