# NOT RUN {
open3d()
id <- points3d(rnorm(100), rnorm(100), rnorm(100), col = "green")
rgl.attrib.info(id, showAll = TRUE)
rgl.attrib.count(id, "vertices")
merge(rgl.attrib.info(), rgl.ids("all"))
# }
Run the code above in your browser using DataLab