How to Render Tables or Graphs Based on User Selection with Reactive Menus in R Shiny