r閃亮的renderdatatable轉置數據幀問題

Question

當我在Shiny中使用renderdatatable函數來顯示轉置數據集時，該函數返回表列名稱丟失的結果。

好奇，找出別人怎麼做來緩解這個問題，任何的幫助深表感謝。

Answer 1

這可能是因爲轉置數據集沒有任何rownames（在轉置操作後它將成爲列名）。 如果你確定爲數據輸入設置列名，那麼對於我來說數據表達式渲染就好了。

library(shiny) 

# Some data 
n  <- 10 
dat   <- data.frame("a"=sample(LETTERS,n),"b"=runif(n),"c"=runif(n)) 
rownames(dat) <-paste("r_", sample(LETTERS,n),sep="") 
colnames(dat) <-paste("c_", sample(LETTERS,3),sep="") 

ui <- shinyUI(fluidPage(
    fluidRow(
    column(8,dataTableOutput("tbl")), 
    column(2,actionButton("renderMatrix","Render matrix")), 
    column(2,actionButton("renderMatrixT","Render t(matrix)")) 
) 
)) 

server <- shinyServer(function(input, output) { 
    observeEvent(input$renderMatrix,{ 
    output$tbl <- renderDataTable({dat}) 
    }) 
    observeEvent(input$renderMatrixT,{ 
    output$tbl <- renderDataTable({t(dat)}) 
    }) 
}) 
shinyApp(ui = ui, server = server) 

這些示例設置了行名和列名，所以數據表總是有一個「列名」列。