如何在闪亮的应用程序中制作kable table reactive（）？闪亮+ kable

Posted 2023-01-26

我试图使kable表反应并导出它在闪亮的应用程序。已经尝试使用renderDataTable / renderTable服务器和输出函数datatableOutput / tableOutput，但没有运气，以下是代码行。

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

tableOutput("tableset")      

答案

由于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：https://shiny.rstudio.com/articles/reactivity-overview.html反应性的更多信息，请参阅此处