R Shiny Selecting Multiple Attributes