r - 选择表中的行，然后提取键并在另一个表中搜索并在 R 中显示行闪亮

Question

我有一个这样的数据集。

我制作了一个新数据集，在这个新数据集中，我放置了原始数据集的唯一行。仪表板中显示的新数据集，用户可以选择一些行。根据选择的行，我提取了“PA0001”之类的名称，现在我在原始数据集中搜索了所有具有此名称的行并显示给用户。我的代码如下：

ui <- luidPage( 
 titlePanel("Prototype of Project"),
br(),
 br(),


  mainPanel(
     DT::dataTableOutput("main_table"),

    br(), be(),

     tableOutput("gene_data")

  )


  )


server <- function(input, output) {


  output$main_table <- DT::renderDataTable({
    data_search = distinct(data[,1:3])
     data_search
  },filter = "top")

    output$gene_data = renderTable({
    s = input$main_table_rows_selected
    data_search = distinct(data[,1:3])
    gene_name = data_search[s,1]
    print(gene_name)
    selected_row = data[data$Locus_Tag %in% gene_name,]
    print(selected_row)

    selected_row

   })


   }

问题是：当我选择一行时，一切都很好，但是当我选择更多行时，我的 selected_row 数据框为空。

标签： rshinyshinydashboardshiny-server