# NOT RUN {
cube=read.obj(system.file("obj/cube.wavefront", package = "readobj"))
str(cube, max.level = 3)
# demonstrate direct conversion of result to rgl format
if(require('rgl')) {
cuber=read.obj(system.file("obj/cube.wavefront", package = "readobj"),
convert.rgl=TRUE)
shade3d(cuber)
}
# }
Run the code above in your browser using DataCamp Workspace