Update server.R

adding a print before plot_name()