# May take more than 5 seconds on CRAN server
if (all(capabilities(c("cairo", "png")))) {
cfg <- pp_cfg(list(suit_color="darkred,black,darkgreen,darkblue,grey"))
save_piece_images(cfg, directory=tempdir(), format="svg", angle=0)
save_piece_images(cfg, directory=tempdir(), format="png", angle=90)
}
Run the code above in your browser using DataLab