Update server.R

fail to add html tags in renderPrint