library(rgl)
library(rgl2gltf)
g <- readGLB(system.file("localtests/2CylinderEngine.glb", package = "rgl2gltf"))
s <- as.rglscene(g)
plot3d(s)
open3d()
m <- as.mesh3d(g)
shade3d(m)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.