Test map mad with Shiny and rCharts