Update server.R

Final version for evaluation.