update server.R codes