crops <- farming_crops_16x16()
corn <- crops$corn$portrait
if (cli::is_utf8_output() && cli::num_ansi_colors() >= 256L) {
print(corn)
}
if (cli::is_utf8_output() && cli::num_ansi_colors() >= 256L) {
print(corn, compress = "v", bg = cli::bg_br_white)
}
if (cli::is_utf8_output() &&
cli::num_ansi_colors() > 256L &&
getOption("width") >= 100L) {
img <- png::readPNG(system.file("img", "Rlogo.png", package="png"))
pm <- as_bm_pixmap(img)
print(pm, compress = "v")
}
Run the code above in your browser using DataLab