是否可以在 Shiny 的应用程序中使用 {gtsummary} 呈现表格?
library(gtsummary)
# make dataset with a few variables to summarize
iris2 <- iris %>% select(Sepal.Length, Sepal.Width, Species)
# summarize the data with our package
table1 <- tbl_summary(iris2)
table1
在 Shiny 的应用程序中:->shinyApp(
ui = fluidPage(
fluidRow(
column(12,
tableOutput('table')
)
)
),
server = function(input, output) {
output$table <- renderTable(table1)
})
谢谢你。
最佳答案
也许这就是你正在寻找的。要在 Shiny 的应用程序中呈现 gt
表,您必须使用 gt::gt_output
和 gt::render_gt
。为了使您的 gtsummary
表能够正常工作,您必须通过 gt
将其转换为 as_gt()
表:
library(shiny)
library(gtsummary)
library(gt)
# make dataset with a few variables to summarize
iris2 <- iris %>% select(Sepal.Length, Sepal.Width, Species)
# summarize the data with our package
table1 <- tbl_summary(iris2) %>% as_gt()
table1
shinyApp(
ui = fluidPage(
fluidRow(
column(12,
gt_output('table')
)
)
),
server = function(input, output) {
output$table <- render_gt(table1)
})
关于r - 如何在 Shiny 的应用程序中使用 {gtsummary} 包,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/64197029/