这是受Is there a way to select an entire group of choices on a pickerInput from shinyWidgets?的启发，也是它的后续
所选的答案对于单个pickerInput非常有效，但是当第二个（“稍后”）答案出现在同一个应用程序中时，问题就会出现。例如，假设有两个pickerInput：

library(shiny)
library(shinyWidgets)

js <- HTML("
$(function() {
  let observer = new MutationObserver(callback);

  function clickHandler(evt) {
    Shiny.setInputValue('group_select', $(this).children('span').text(),{priority: \"event\"});
  }

  function callback(mutations) {
    for (let mutation of mutations) {
      if (mutation.type === 'childList') {
        $('.dropdown-header').on('click', clickHandler).css('cursor', 'pointer');
        
      }
    }
  }

  let options = {
    childList: true,
  };

  observer.observe($('.inner')[0], options);
})
")

choices <- list("A" = c(1, 2, 3, 4, 5), "B" = c(6, 7, 8, 9, 10), "C" = c(11,12,13,14,15))

ui <- fluidPage(
    tags$head(tags$script(js)),
    pickerInput("test", choices = choices, multiple = TRUE,options = list('actions-box' = TRUE)),
    textOutput("testOutput"),
    pickerInput("test_2", choices = choices, multiple = TRUE,options = list('actions-box' = TRUE)),
    textOutput("testOutput_2")
)

server <- function(input, output, session) {
    output$testOutput <- renderText({paste(input$test)})
    output$testOutput_2 <- renderText({paste(input$test_2)})
    
    observeEvent(input$group_select, {
        req(input$group_select)
        if(all(choices[[input$group_select]] %in% input$test_2)){
            sel <- input$test_2[!(input$test_2 %in% choices[[input$group_select]])]
        }else{
            sel <- union(input$test_2, choices[[input$group_select]])
        }
        updatePickerInput(session, "test_2", selected = sel)
    }) 
}

shinyApp(ui = ui, server = server)

这样，点击第一个pickerInput中的一个组会更新第二个组，而点击第二个组则什么也不做。如何告诉MutationObserver只监听第二个pickerInput中的突变？
在我的实际用例中，我在两个不同的选项卡上有两个不同的pickerInput（从shinydashboard开始），我希望有这个功能。因此，也许告诉MutationObserver在哪个选项卡上查看就足够了？（参见How do I use shinyjs to identify if tab is active in shiny?，但作为一个JS初学者，我真的不知道如何使用它）。

更新

在我的用例中，我已经通过将req(input$sidebar == "tab_name")添加到observeEvent部分来设法稍微接近。现在它们都更新了正确的pickerInput，但是对于第二个，每次我点击第一个pickerInput中的组头后，该功能只工作一次。
所以，还是不行。我试图使用shinydashboard中的制表符得到一个可重现的示例，但由于某种原因，当我将它们引入MWE时，整个mutationObserver完全停止工作。

更新2

@thothal的回答奏效了。我将observeEvent部分重写为以下内容以获得相同的功能：

observeEvent(input$group_select, {
    req(input$group_select)
    if(all(choices[[input$group_select[[1]]]] %in% input[[names(input$group_select)]])){
      sel <- input[[names(input$group_select)]][!(input[[names(input$group_select)]] %in% choices[[input$group_select[[1]]]])]
    }else{
      sel <- union(input[[names(input$group_select)]],choices[[input$group_select[[1]]]])
    }
    updatePickerInput(session,names(input$group_select),selected = sel)
  })