# devtools::install_github("rCharts", "ramnathv", ref = "dev")
library(rCharts)
n1 <- nPlot(mpg ~ wt, data = mtcars, type = 'scatterChart', group = 'gear')
n1$set(disabled = c(T, T, F))
n1