if (FALSE) {
## generate a simple AmigaIcon object:
icon <- simpleAmigaIcon()
## convert it into raw data:
icon.raw <- as.raw(icon)
## convert the raw data back into an icon:
icon.restored <- rawToAmigaIcon(icon.raw)
}
Run the code above in your browser using DataLab