当多个renderDataTable在Shiny App中处于活动状态时检索ID

Question

我正在尝试根据数据表中所选行的 ID 删除值。我的应用程序有很多数据表，当我使用它时，它总是显示 NULL。当我在数据表中选择一行时，如何检索 ID/物种（虹膜数据）。下面是一个示例

尝试将这些值存储为无功无功。搜索可用资源

Answer 1

示例代码

library(shiny)
library(DT)
shinyApp(
  ui = fluidPage(
    dataTableOutput("table1"),
    dataTableOutput("table2"),
    textOutput("text1"),
    textOutput("text2")
  ),
  server = function(input, output) {
    output$table1 <- renderDataTable({
      datatable(iris)
    })
    
    output$table2 <- renderDataTable({
      datatable(mtcars)
    })  
    output$text1 <- renderText({
      if(length(input$table_rows_selected) > 0){
        data <-  input$table_rows_selected
        data}
      else{print("NULL")}
    })
    output$text2 <- renderText({
      if(length(input$table_rows_selected) > 0){
        data <-  input$table_rows_selected
        data}
      else{print("NULL")}
    })
    
  }
)