font_file <- system.file("fonts/spleen/spleen-8x16.hex.gz", package = "bittermelon")
font <- read_hex(font_file)
r <- font[[str2ucp("R")]]
# requires users to manually close file in text editor
if (FALSE) {
edited_r <- bm_edit(r)
print(edited_r)
}
Run the code above in your browser using DataLab