Update server.R

add library() call