レンダリングテーブル（Shiny）の行名に添字を追加するにはどうすればよいですか？

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パッケージを使用して、そのためのデータテーブルを作成できます。 escape = FALSEのhtmlタグを使用する必要があります。下記の修正あなたのコードを見て：

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) 

あなたはこのようになりますテーブルを取得：

EDIT：

あなたがでrenderTableのための添え字を追加することができますsanitize.text.function = function(x) xのhtmlタグを使用します。以下に示すように、コードは次のようになります。

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) 

次のように出力表が表示されます：

はそれが役に立てば幸い！