# \donttest{
# This web page has lots of sample files
samples <- "https://raw.githubusercontent.com/KhronosGroup/glTF-Sample-Models/master/2.0"
# Get one of them: an avocado
gltf <- readGLB(paste0(samples, "/Avocado/glTF-Binary/Avocado.glb?raw=true"))
if (interactive())
rgl::plot3d(gltf)
if (rgl::in_pkgdown_example())
gltfWidget(gltf)
gltf$closeBuffers()
# }
Run the code above in your browser using DataLab