Update server.R

New Rpubs link 44643