R 是否有办法使用selectInput（）选择所有子列表？

我正在构建一个闪亮的应用程序，它利用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)

库（闪亮）
我不认为有办法做到这一点（我最近一直在研究如何使用
selectizeInput
）。间接地说（从美学角度来说也不是那么干净），我认为目前唯一的方法就是你说你不想要它（我也这么认为）。Github问题要求这样做：我会使用，或者其他类似的JS库。谢谢@r2evans。很高兴知道我不是唯一一个。对shinyTree@GyD的建议也很好。我会调查的