open3d()
saveopts <- options(rgl.useNULL = TRUE)
xyz <- matrix(rnorm(300), ncol = 3)
id <- plot3d(xyz, type="s", col = "blue", zlim = c(-3,3))["clipplanes"]
dvals <- c(3, -3)
widget <- rglwidget() %>%
playwidget(clipplaneControl(d = dvals, clipplaneids = id),
start = 0, stop = 1, step = 0.01,
rate = 0.5)
if (interactive() || in_pkgdown_example())
widget
options(saveopts)
Run the code above in your browser using DataLab