闪亮 - renderTable / renderDataTable行的文本样式

Question

如何以粗体显示renderTable中前两行的文本？我可以在没有DT / renderDataTable的情况下这样做吗？

Answer 1

这个怎么样：

shinyApp(
  ui = fluidPage(
    tags$head(
      tags$style(
        HTML("tr:first-child, tr:first-child + tr { font-weight: bold }")
      )
    ),
    fluidRow(
      column(12, tableOutput('table')
      )
    )
  ),
  server = function(input, output) {
    output$table <- renderTable(head(iris))
  }
)

Answer 2

试试这个：

library(shiny)

ui <- fluidPage(
    tags$head(
        tags$style(
            "tr:nth-child(1) {font-weight: bold;}
             tr:nth-child(2) {font-weight: bold;}
            "
        )
    ),
    tableOutput("tbl")
)

server <- function(input, output){

    output$tbl <- renderTable({iris})
}

shinyApp(ui, server)