Update server.R

Working navbar version