if (FALSE) {
## create a simple AmigaIcon:
icon <- simpleAmigaIcon()
## write the icon to the temp dir:
write.AmigaIcon(icon, file.path(tempdir(), "icon.info"))
## read the same file:
icon2 <- read.AmigaIcon(file.path(tempdir(), "icon.info"))
}
Run the code above in your browser using DataLab