如何在renderTable的行名稱中添加下標（發光）？

Question

如何在renderTable的行名中添加下標？ 在以下示例中，我需要在A_1和A_2下標。

library(shiny)

ui <- fluidPage(tableOutput("table"))

server <- function(input, output) {
  output$table <- renderTable({data <- data.frame(c(1, 2),
                                         row.names = c("A_1", "A_2"))}, rownames = T)}

shinyApp(ui = ui, server = server)

Answer 1

您可以為此使用DT包作為數據表。 您需要將HTML標記與escape = FALSE一起使用。 看看下面修改后的代碼：

  library(shiny)
  library(DT)
  ui <- fluidPage(dataTableOutput("table"))

  server <- function(input, output) {
    output$table <- renderDataTable({
      data <- datatable(data.frame(c(1, 2), row.names = c("A<sub>1</sub>", "A<sub>2</sub>")), rownames = T, escape = FALSE)
      })
  }

  shinyApp(ui = ui, server = server)

您會得到一個如下表：

編輯：

您可以通過使用帶有sanitize.text.function = function(x) x html標簽來為renderTable添加下標。 代碼如下所示：

 library(shiny)

    ui <- fluidPage(tableOutput("table"))

    server <- function(input, output) {
      output$table <- renderTable({data <- data.frame(c(1, 2),
                                                      row.names = c("A<sub>1</sub>", "A<sub>1</sub>"))}, rownames = T, sanitize.text.function = function(x) x)}

    shinyApp(ui = ui, server = server)

輸出表如下所示：

希望能幫助到你！