test rCharts and code