Update server.R

no need for manipulate