Shiny app is working. Just need to tweak things