Есть ли способ выбрать все подсписки с блестящей selectInput ()?

Question

Я создаю блестящее приложение, которое использует вложенный список в selectInput (). Можно ли добавить возможность выбора всех элементов в определенном подсписке?

R версия 3.5.3 Блестящая версия 1.2.0

ниже - очень простое блестящее приложение, иллюстрирующее проблему. в моем реальном случае использования подсписки намного длиннее, чем 4 элемента, поэтому выбор каждого элемента занял бы много времени.

library(shiny)

east <- list("DAL" = "Dallas Cowboys",
             "NYG" = "New York Giants",
             "PHI" = "Philadelphia Eagles",
             "WAS" = "Washington Redskins")
north <- list("CHI" = "Chicago Bears",
              "DET" = "Detroit Lions",
              "GB" = "Green Bay Packers",
              "MIN" = "Minnesota Vikings")
south <- list("ATL" = "Atlanta Falcons",
              "CAR" = "Carolina Panthers",
              "NO" = "New Orleans Saints",
              "TB" = "Tampa Bay Buccaneers")
west <- list("AZ" = "Arizona Cardinals",
             "LAR" = "Los Angeles Rams",
             "SF" = "San Francisco 49ers",
             "LAC" = "Los Angeles Chargers")


ui <- fluidPage(
  selectInput(inputId = "nfc",
              choices = list("east" = east,
                             "north" = north,
                             "south" = south,
                             "west" = west),
              label = "teams",
              multiple = TRUE),
  textOutput("selected")
)

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

  output$selected <- renderText({paste(input$nfc, collapse = ", ")})
}

shinyApp(ui, server)

Я бы хотел, чтобы пользователи могли выбирать все команды в NFC East, например, нажав «восток» в раскрывающемся меню, или добавить параметр в список, который выбирает все NFC восток команды.

примечание: добавление пятой опции от "all" = c("Dallas Cowboys", "New York Giants", "Washington Redskins", "Philadelphia Eagles") до east <- list(..) не было бы идеальным, поскольку я хотел бы, чтобы пользователи могли затем отменить выбор команд (т.е. выбрать все восточные команды nfc, а затем исключить Ковбоев).