library(rgl)
# regression : this failed for headless tests
par3d(userMatrix = diag(4))
for(demo in demo(package="rgl")$results[,"Item"])
if (!(demo %in% c("rgl", "lsystem")))
demo(demo, package="rgl", character.only=TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.