Fatal编程技术网
  • r/
  • R 无法在ShinyApp中打印行名

R 无法在ShinyApp中打印行名

r shiny

R 无法在ShinyApp中打印行名,r,shiny,rowname,R,Shiny,Rowname,我无法使用以下代码在Shining中打印表行名： 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 <- dashboar

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

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)

库（ShinydaShashboard）
图书馆（闪亮）

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


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)



库（ShinydaShashboard）
图书馆（闪亮）
图书馆（DT）

myData感谢您的帮助！