Update server.R

Read source directly.
Read objects (rose - small) from R objects.
Function not complete.