Edited server.R