if (all(capabilities(c("cairo", "png")))) {
cfg <- game_systems("sans", border = FALSE)$dominoes
files <- save_piece_obj("tile_face", suit = 3+1, rank=6+1, cfg = cfg)
print(files)
}
Run the code above in your browser using DataLab