Shiny app with ggplot2 and tables