我希望能够将用于p值计算的测试类型的读者友好名称拉到其自己的列中。从理论上讲，我认为应该可以使用脚注中使用的相同对象（但如何使用一直很困难）。
样本数据：

library(gtsummary)
df <- data.frame(rnorm(10),rnorm(10), sample(c("orange","pink","green"), size = 10, replace = TRUE),sample(c(TRUE, FALSE), size = 10, replace = TRUE))

names(df) <- c("a","b","c","outcome")
preds <- c("a","b","c")

gt <- df %>% select(all_of(preds), outcome) %>%
  tbl_summary(by = outcome, percent = 'row') %>%
add_p()

如果我做

gt %>% modify_header(statistic ~ "**Test Statistic**", 
  test_name ~ "**Test Used**")

我得到了统计值（太棒了！）和所用的测试，但所用的测试是以函数名的形式格式化的。
我希望它对读者更友好。例如，我希望它像脚注那样打印“Fisher精确检验”，而不是“Fisher.test”。这能做到吗？