inst/examples/ani.options-ex.R

In yihui/animation: A Gallery of Animations in Statistics and Utilities to Create Animations

## see the first example in help(animation) on how to set and restore animation options

## use the PDF device: remember to set 'ani.type' accordingly
oopt = ani.options(ani.dev = 'pdf', ani.type = 'pdf', ani.height = 5, ani.width = 7)

## use the Cairo PDF device
## if (require('Cairo')) {
##     ani.options(ani.dev = CairoPDF, ani.type = 'pdf',
##                 ani.height = 6, ani.width = 6)
## }

## don't loop for GIF/HTML animations
ani.options(loop = FALSE)

## don't try to open the output automatically
ani.options(autobrowse = FALSE)

## it's a good habit to restore the options in the end so that other code will not be affected
ani.options(oopt)

## how to make use of the hidden option 'img.fmt'
saveHTML(expr = {
  png(ani.options('img.fmt'))
  for(i in 1:5) plot(runif(10))
  dev.off()
}, img.name='custom_plot', use.dev = FALSE, ani.type='png',
         description="Note how we use our own graphics device in 'expr'.",
         htmlfile='custom_device.html')