Added a sorting function to server.R's summarize_data funcion

Additionally, rather than use the file stored on github I've assumed the
datafile is in the local directory.   This apparently works on shinyapps!