Update server.R

This should basically solve the problem where the country colors changed when different countries where selected.