Create server.R

ddpAPPv2 12/118/14