jpegCI <- JpegComponentInfo(1, 2, 3, 4)
jpegCI. <- list(componentID=as.raw(1), componentIndex=as.raw(2),
hSampFactor=as.raw(3), vSampFactor=as.raw(4))
class(jpegCI.) <- 'JpegComponentInfo'
stopifnot(
all.equal(jpegCI, jpegCI.)
)
Run the code above in your browser using DataLab