Create server.R

This is the server code for creating the output that is shown in each tab.