# \donttest{
tmp_path <- tempdir()
render(flea[, 1:6], grand_tour(), display_xy(), "pdf",
frames = 3,
file.path(tmp_path, "test.pdf")
)
render(flea[, 1:6], grand_tour(), display_xy(), "png",
frames = 3,
file.path(tmp_path, "test-%03d.png")
)
# }
Run the code above in your browser using DataLab