if (requireNamespace("grid", quietly = TRUE) && piecepackr:::device_supports_unicode()) {
cfg <- pp_cfg(list(grob_fn.tile=basicPieceGrob, invert_colors=TRUE))
grid.piece("tile_face", suit=1, rank=3, cfg=cfg)
}
# May take more than 5 seconds on CRAN servers
try({
if (requireNamespace("grid", quietly = TRUE) && capabilities(c("cairo"))) {
cfg <- pp_cfg(list(grob_fn.tile=basicPieceGrob, invert_colors=TRUE))
directory <- tempdir()
save_piece_images(cfg, directory=directory, format="svg", angle=0)
cfg2 <- pp_cfg(list(grob_fn=picturePieceGrobFn(directory)))
grid::grid.newpage()
grid.piece("coin_back", suit=3, rank=5, cfg=cfg2)
}
})
Run the code above in your browser using DataLab