R Shiny app that compares tech sctocks