theplot <- plot3d(rnorm(100), rnorm(100), rnorm(100), col = "red")
widget <- rglwidget(height = 300, width = 300) %>%
toggleWidget(theplot["data"],
hidden = theplot[c("xlab", "ylab", "zlab")],
label = "Points")
if (interactive() || in_pkgdown_example())
widget
Run the code above in your browser using DataLab