--- &interactive

```{r opts.label = 'interactive', results = 'asis'}
library(rCharts)
p1 <- rPlot(SepalLength ~ SepalWidth | Species, data = iris, color = 'Species', type = 'point')
p1
```
求教应该如何修改呢
或者有好的slidify教程分享一下？