Update server.R

This should basically solve the problem where the country colors changed when different countries where selected.
removed some code I copy/pasted by mistake
Merge pull request #7 from tpoisot/patch-1

Add constant country colors, Solve #2 ?
Revert "Add constant country colors, Solve #2 ?"
Merge pull request #8 from chendaniely/revert-7-patch-1

Revert "Add constant country colors, Solve #2 ?"