rCharts with Slidify

rPlot

library(rCharts)
r1 <- rPlot(mpg ~ wt | gear, data = mtcars, type = 'point')
r1$print('chart1', include_assets = TRUE, cdn = TRUE)

nPlot

hair_eye_male = subset(as.data.frame(HairEyeColor), Sex == "Male")
n1 <- nPlot(Freq ~ Hair, group = 'Eye', 
    data = hair_eye_male, type = 'multiBarChart')
cat('<style>.nvd3{height: 400px;}</style>')

n1$print('chart2', include_assets = TRUE, cdn = TRUE)