Update server.r

Deployed using Shinyapps