自定义renderTable中的标题并使它具有反应性R Shiny

Question

当我使用paste0（）添加反应性值时，它告诉我我正在尝试做只能在反应性环境中完成的事情。有人可以告诉我如何使标题具有反应性吗？

此代码在renderTable中给出了一个很小的标题。如何自定义颜色，大小，字体，中心？谢谢！

shinyApp(
  ui = fluidPage(
    fluidRow(
      column(12,
             tableOutput('table')
      )
    )
  ),
  server = function(input, output) {
    output$table <- renderTable(iris, striped = TRUE, bordered = TRUE, hover = TRUE, spacing = 'm',  
                                width = '75%', align = 'c', rownames = TRUE,  digits = 5,
                                caption = "Iris",
                                caption.placement = getOption("xtable.caption.placement", "top"))
  }
)
}