require(rCharts)
r1 <- rPlot(mpg ~ wt, data = mtcars, type = 'point')
r1$addControls('x', 'wt', names(mtcars))
r1