library(rgl)
knit_hooks$set(rgl = hook_rgl)

rgl.spheres(0, 0, 0)

plot of chunk ch1 

rgl.spheres(0, 2, 0)

plot of chunk ch2