data(font_example)
## Let's store the example font first:
write.AmigaBitmapFontSet(font_example, tempdir())
## Now read a specific subset from the font files:
font.sub <- read.AmigaBitmapFont(file.path(tempdir(), "AmigaFFH", "9"))
## The same can be done with a virtual Amiga disk. The following
## examples require the 'adfExplorer' package.
if (requireNamespace("adfExplorer")) {
library("adfExplorer")
virtual_disk_file <- tempfile(fileext = ".adf") |>
create_adf_device(write_protected = FALSE) |>
prepare_adf_device("font_disk") |>
make_adf_dir("FONTS")
dest <- virtual_path(virtual_disk_file, "DF0:FONTS")
write.AmigaBitmapFontSet(font_example, dest)
font.read <- read.AmigaBitmapFont(
virtual_path(virtual_disk_file, "DF0:FONTS/AmigaFFH/9")
)
close(virtual_disk_file)
}
Run the code above in your browser using DataLab