No Chart Printed
# Title
Here is some text
## A header 2
Some more text
## A chart at header 2
```{r scatter, results='asis', comment=NA, message=FALSE}
library(rCharts)
data(cars)
r1 = rPlot(speed ~ dist, data=cars, type='point')
r1$print('scatter')
```