Create server.R

Code About Plots