# May take more than 5 seconds on CRAN servers
if (nzchar(Sys.which("monobit-convert"))) {
try({
font_file <- system.file("fonts/spleen/spleen-8x16.hex.gz", package = "bittermelon")
font <- read_monobit(font_file)
capital_r <- font[[str2ucp("R")]]
print(capital_r)
filename <- tempfile(fileext = ".yaff")
write_monobit(font, filename)
})
}
Run the code above in your browser using DataLab