Question

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

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)

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

Output

Answer 1

您可以使用DT包添加rownames。 rownames是[{1}}的参数，也可以通过DT::datatable参数在DT::renderDT中使用。

options

无法在ShinyApp中打印rownames

1 个答案: