made a shinyapp for tuesdays presentation