Create server.R

This is the server.R code for the EOQ model application.