how to filter table using shiny like using rstudio