updated server.r