r - 如何在 Shiny 的应用程序中使 kable 表reactive()？ Shiny +电缆

Question

我正在尝试使 kable 表具有反应性并将其导出到 Shiny 的应用程序中。已经尝试在服务器内使用 renderDataTable/renderTable 并将输出函数作为 datatableOutput/tableOutput，但没有运气以下是代码行。

  output$tableset <- renderDataTable({
kable(spread_bole) %>%
  kable_styling(font_size = 15 ,bootstrap_options = c("striped","hover", "condensed")) })

tableOutput("tableset")      

Answer 1

自 kable返回 HTML，您可以使用 htmlOutput 渲染表格在ui和renderText在server :

# UI component
htmlOutput("tableset") 

# server component
output$tableset <- renderText({
  kable(spread_bole) %>%
    kable_styling(
      font_size = 15,
      bootstrap_options = c("striped", "hover", "condensed")
    ) 
})

此外，如果您想让它响应用户输入，您可以将其包装在响应式表达式中:

my_table <- reactive({
  kable(spread_bole) %>%
    kable_styling(
      font_size = 15,
      bootstrap_options = c("striped", "hover", "condensed")
    )
})

# my_table() will call the cached table 

如果您想多次使用同一个表，这将特别有用。您可以查看eventReactive也可以使用特定输入来触发它。有关 Shiny react 性的更多信息，请参阅此处: https://shiny.rstudio.com/articles/reactivity-overview.html