Create server.R

Initial commit - function framework.