html - 自制的 Shiny table

Question

我想知道如何逐个单元格创建一个带有 Shiny 动态内容的(html)表格？现在我正在使用以下组合:

server.R

output$desc <- renderTable(
  hdx.desc()
)

ui.R

tabsetPanel(
  tabPanel("Description", tableOutput("desc"))
)

这个效果很好。我想设置一些单元格的链接，并向表格添加一些额外的布局设置，如粗体、无边框等，并且也不希望将行号放在前面。

我该怎么做？我尝试了 HTML() 命令，但它不起作用。感谢您的帮助。

Answer 1

如果您想使用renderTable，设置表格样式的最简单方法是使用CSS。删除行号需要将选项 include.rownames = FALSE 传递给 print.xtable。 renderTable 函数中有一个 ... 参数可以执行此操作。您可以在表中包含 html 并使用 sanitize.text.function 参数。

runApp(list(
  ui = bootstrapPage(
    tableOutput("myTable")
    , tags$head(tags$style(type="text/css", 
"#myTable table th td {
border: 1px solid black !important;
}
#myTable table th
{
background-color:green;
color:white;
}"
))

  ),
  server = function(input, output) {
    output$myTable <- renderTable({ 
      temp = c(runif(4), 
               as.character(tags$a(id = 'myId', href='http://www.example.com', runif(1)))
               )
      data.frame(date=seq.Date(Sys.Date(), by=1, length.out=5), temp = temp)
      }, include.rownames = FALSE, sanitize.text.function = function(x) x)
  }
))

或者查看renderDataTable，它允许您使用http://datatables.net/ .