Nothing
hypervolume_save_animated_gif <- function(image.size=400, axis=c(0,0,1),rpm=4,duration=15,fps=10,file.name='movie',directory.output='.',...)
{
td = tempdir()
tf = basename(tempfile(tmpdir=td))
rgl::par3d(windowRect=c(0,0,image.size,image.size))
rgl::movie3d(rgl::spin3d(axis=axis,rpm=rpm),duration=duration,fps=fps,movie=tf,dir=td,...)
if(!file.exists(directory.output))
{
dir.create(directory.output)
}
file.rename(sprintf("%s.gif",file.path(td,tf)),file.path(directory.output,sprintf("%s.gif",file.name)))
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.