使用闪亮的数据表获取所选单元格的数据

时间:2017-08-30 06:23:05

标签: r shiny dt

我在Shiny中有一个数据表,我需要从单元格中获取数据才能显示正确的输出。

通过使用input$tableId_cells_selected,我可以检索表中所选单元格的位置。这很有用,但是我还需要引用单元格中实际写入输出函数的内容。

我发现这个link可能会有所帮助,但我无法将这些功能应用到我的Shiny服务器功能中。

感谢任何帮助。

1 个答案:

答案 0 :(得分:3)

以下是您的解决方案:

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