if (FALSE) {
## Get an IFFChunk object:
example.iff <- read.iff(system.file("ilbm8lores.iff", package = "AmigaFFH"))
## Coerce it to raw data:
example.raw <- as.raw(example.iff)
## Coerce raw data to IFF chunk:
example.iff.new <- rawToIFFChunk(example.raw)
## These conversions were non-destructive:
identical(example.iff, example.iff.new)
}
Run the code above in your browser using DataLab