square <- bm_bitmap(matrix(1L, nrow = 16L, ncol = 16L))
square_outline <- bm_outline(square)
print(square_outline)
if (require(grid) && capabilities("png")) {
circle <- as_bm_bitmap(circleGrob(), width=16, height=16)
circle_outline <- bm_outline(circle)
print(circle_outline)
}
corn <- farming_crops_16x16()$corn$portrait
corn_outline <- bm_outline(corn, "magenta")
if (cli::is_utf8_output() && cli::num_ansi_colors() >= 256L) {
print(corn_outline, bg = "white")
}
Run the code above in your browser using DataLab