Create server.R

Here it is with google map as a background