我在 Shiny 中有一个数据表,我需要从单元格中获取数据以显示正确的输出。
通过使用 input$tableId_cells_selected
,我能够检索表格中所选单元格的位置。这很有用,但是我还需要引用单元格中的实际内容来编写输出函数。
我找到了这个 link这可能会有帮助,但我无法应用该功能在我的 Shiny 服务器功能中实际工作。
感谢任何帮助。
最佳答案
这里有适合你的解决方案:
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 !
关于r - 使用 Shiny 的数据表获取所选单元格的数据,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/45953314/