I would like to find a resource that would allow my Shiny selectInput function to expandcollapse based