Update server.R

as per shinyapp alpha