Create server.r

Shiny app - Google Vis map