Update server.R

added some commenting