Started formatting shiny app

Still need to get data sorter to work with reactive variables.