Update server.R

See if this works.  See notes in script.