r - 无法在 ShinyApp 中打印行名

Question

我无法使用以下代码在 Shiny 中打印表格行名：

library(shinydashboard)
library(shiny)

myData  <- matrix(
  data=c('13,867','$229,153','30,128','$16.53','98.17%','39.69%'),
  nrow = 6, ncol = 1, dimnames = list(letters[1:6], c("Metrics"))
)

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(
    box(dataTableOutput("table"))
  )
)
server <- function(input, output) {
  output$table <- renderDataTable({
    myData
  })
}

shinyApp(ui, server)

我得到的输出如下所示。有人可以指出错误吗？

输出

Answer 1

您可以在DT包中添加行名。rownames是一个参数，DT::datatable它也可以DT::renderDT通过options参数来使用。

library(shinydashboard)
library(shiny)
library(DT)

myData  <- matrix(
  data=c('13,867','$229,153','30,128','$16.53','98.17%','39.69%'),
  nrow = 6, ncol = 1, dimnames = list(letters[1:6], c("Metrics"))
)

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(
    box(DTOutput("table"))
  )
)
server <- function(input, output) {
  output$table <- renderDT({
    myData
  }, options = list(rownames = TRUE))
}

shinyApp(ui, server)