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