server.R script for shiny app, initial commit