如何在shiny中设置相交后的数据子集

ui <- fluidPage(
  selectInput(inputId = "dataset1", label = "数据集1", choices = unique(data$dataset), multiple = TRUE),
  selectInput(inputId = "dataset2", label = "数据集2", choices = unique(data$dataset), multiple = TRUE),
  # 其他UI组件
)

server <- function(input, output) {
  intersectedData <- eventReactive(input$intersectButton, {
    # 获取用户选择的数据子集
    dataset1 <- input$dataset1
    dataset2 <- input$dataset2
    
    # 执行相交操作
    intersected <- intersect(dataset1, dataset2)
    
    # 返回相交后的数据子集
    return(intersected)
  })
  
  # 其他Server逻辑
}

output$result <- renderTable({
  intersectedData()
})