shiny中使用gtsummary

gtsummary包tbl_summary()生成的基线图是一个tbl_summary、gtsummary类型。直接打印是一张图片。要转成word文件的话，需要先转为flextable类型，在调用save_as_docx()。

shiny中展示的话， 要转为kablExtra类型，但用kablExtra并不能完美表现出来。

代码如下：

library(shiny)
library(gtsummary)
library(flextable)
library(kableExtra)

trial2 <- trial |>  select(age, grade, response, trt)
table1 <- tbl_summary(trial2)

ui <- fluidPage(
  
  tableOutput("tab"),
  actionButton("doc","导出word")
)

server <- function(input, output, session) {
  
  output$tab = function(){ # kablExtra图表不能用renderTable()
    table1 |>  
      as_kable_extra()
  }
  
  observeEvent(input$doc,{
     table1 |> 
      as_flex_table() |> 
      save_as_docx(path = "table1.docx")
  })
}

shinyApp(ui, server)

shiny运行后如图：

点击导出word按钮，生成的word如下图：

鄂ICP备2022016232号-1