无法在 ShinyApp 中打印行名

Question

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

library(shinydashboard)
library(shiny)

myData  <- matrix(
  data=c('13,867','9,153','30,128','.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)

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

Output

Answer 1

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

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

myData  <- matrix(
  data=c('13,867','9,153','30,128','.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)

无法在 ShinyApp 中打印行名

Unable to print rownames in ShinyApp

r

rowname

shiny