使用有光澤的數據表獲取所選單元格的數據

Question

我在Shiny中有一個數據表，爲了顯示正確的輸出，我需要將數據從單元格中取出。

通過使用input$tableId_cells_selected，我可以檢索表格中選定單元格的位置。這很有幫助，但是我還需要引用單元中的實際內容來編寫輸出函數。

我發現這個link這可能會有所幫助，但我無法將這些功能應用到我的Shiny服務器功能中。

任何幫助表示讚賞。

Answer 1

這裏是爲您解決：

library(shiny) 
library(DT) 
shinyApp(
    ui = fluidPage(DT::dataTableOutput('tableId'), 
       textOutput("celltext")), 
    server = function(input, output) { 
    output$tableId = DT::renderDataTable(
     iris, , selection = list(target = 'cell') 
    ) 

    output$celltext <- renderText({ 
     cell <- input$tableId_cells_selected 
     iris <- iris[cell] 
    }) 
    } 
) 

與textOutput數據表中可以看到所選單元格的值低於...

，你需要做的唯一一件事就是使用input$tableId_cells_selected參數子集數據：

cell <- input$tableId_cells_selected 
iris <- iris[cell] 

下一次，請張貼reproducible example！