## Not run:
#
# #
# # create animation
# #
#
# shade3d(oh3d(), color = "red")
# rgl.bringtotop()
# rgl.viewpoint(0, 20)
#
# setwd(tempdir())
# for (i in 1:45) {
# rgl.viewpoint(i, 20)
# filename <- paste("pic", formatC(i, digits = 1, flag = "0"), ".png", sep = "")
# rgl.snapshot(filename)
# }
# ## Now run ImageMagick command:
# ## convert -delay 10 *.png -loop 0 pic.gif
# ## End(Not run)
Run the code above in your browser using DataLab