if(interactive()){
p <- l_plot(iris, linkingGroup="iris")
i <- l_info_states(p)
names(p)
names(i)
i$selectBy
l <- l_layer_rectangle(p, x=range(iris[,1]), y=range(iris[,2]), color="")
l_info_states(l)
h <- l_hist(iris$Sepal.Length, linkingGroup="iris")
l_info_states(h)
}
Run the code above in your browser using DataLab