Shiny - Textstil für Zeilen von renderTable/renderDataTable

Question

Wie kann ich den Text der ersten beiden Zeilen in einer renderTable fett darstellen? Kann ich das ohne DT/renderDataTable tun?

Answer 1

Wie wäre es damit:

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

Versuchen Sie folgendes:

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)