Update server.R

Missing input$.