闪亮的DT :: renderdatatable

Question

假设数据表的列是：唯一ID，名称，薪水，职位。我使用DT :: renderdatatable（DT :: dataTableOutput）在闪亮的应用程序中显示表格。我想单击输出的一行，以在另一输出中显示属于该ID的人的其他数据。解决办法是什么？简而言之，如何从点击的订单项中提取唯一ID？

Answer 1

您可以使用_rows_selected表随附的DT扩展名。 Here是可能的参数列表。几个实时示例为here或here。

这是一个图表的简单示例，它会随着表中选择的线而更新：

library(shiny)
library(DT)

ui <- fluidPage(
  DT::dataTableOutput("test_table"),
  plotOutput("test_plot")
)

server <- function(input, output, session) {

  output$test_table <- DT::renderDataTable({
    mtcars
  })

  output$test_plot <- renderPlot({
    s <- input$test_table_rows_selected

    if (!is.null(s)) {
      plot(mtcars[s, "disp"])
    }
  })

}

shinyApp(ui, server)