Update server.r

final version update