Is there a way to get the list of input values in R shiny