library(rgl2gltf)
library(rgl)
gltf <- readGLB(system.file("glb/RiggedSimple.glb", package = "rgl2gltf"))
if (requireNamespace("manipulateWidget"))
asRow(gltfWidget(gltf, method = "rigid"),
gltfWidget(gltf, method = "shader"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.