## Define a NG_data object
ng.iris <- ng_data(name = "iris", data = iris[,1:4])
## start a navGraph session
nav <- navGraph(ng.iris)
## modify colors of points
## update navGraph handler
nav <- ng_update(nav)
nav # show method
## get information form navGraph handler
ng_get(nav)
## get group attribute back
ng_get(ng_get(nav,"data"),"group")
Run the code above in your browser using DataLab