# NOT RUN {
theplot <- plot3d(rnorm(100), rnorm(100), rnorm(100), col = "red")
widget <- rglwidget(height = 300, width = 300) %>%
toggleWidget(theplot["data"], label = "Points")
if (interactive())
widget
# }
Run the code above in your browser using DataLab