R Shiny Selecting Multiple Inputs