Question

我尝试使用反应式表达式输出带有标题的表，但它不起作用。我使用了以下代码：

output$table1 <- renderTable({
 table <- makeTable()
 return(table)
     }, caption="TEST")

你知道怎么解决吗？

Answer 1

问题是caption与print.xtable的其他参数部分匹配，因此通过指定它们，我们可以通过以下方式获得参数：

<强> server.R

library(shiny)
library(xtable)

shinyServer(function(input, output, session) {
  output$table1 <- renderTable({
    data(tli)
    tli[1:10,]
  }, caption = "Sample Data",
     caption.placement = getOption("xtable.caption.placement", "bottom"), 
     caption.width = getOption("xtable.caption.width", NULL))
})

<强> ui.R

library(shiny)

shinyUI(fluidPage(
  mainPanel(
    tableOutput("table1")
    )
))

renderTable中的标题闪亮

1 个答案: