updated server.R to print 4dp in output