rgl::mfrow3d
Позволяет построить несколько подцелей в одном и том же окне rgl.
Нажатие и перетаскивание подцены вращает сцену, как и ожидалось. Тем не менее, прокрутка колесика мыши увеличивает только последнюю подцену. Есть ли способ масштабирования сцены, на которой находится мышь, с помощью колесика мыши?
Простой пример можно найти в документации:
shapes <- list(Tetrahedron = tetrahedron3d(), Cube = cube3d(), Octahedron = octahedron3d(),
Icosahedron = icosahedron3d(), Dodecahedron = dodecahedron3d(),
Cuboctahedron = cuboctahedron3d())
col <- rainbow(6)
open3d()
mfrow3d(3, 2)
for (i in 1:6) {
next3d() # won't advance the first time, since it is empty
shade3d(shapes[[i]], col = col[i])
}
highlevel(integer()) # To trigger display as rglwidget