tests/readIDAT_370k_gz.R

In HenrikBengtsson/illuminaio: Parsing Illumina Microarray Output Files

library(illuminaio)
library(IlluminaDataTestFiles)

idatFile1 <- system.file("extdata", "idat", "4019585376_B_Red.idat",
                         package = "IlluminaDataTestFiles")
idat1 <- illuminaio::readIDAT(idatFile1)
idatFile2 <- system.file("extdata", "idat", "4019585376_B_Red.idat.gz",
                         package = "IlluminaDataTestFiles")
idat2 <- illuminaio::readIDAT(idatFile2)
idat2$fileSize <- idat1$fileSize <- NULL
RUnit::checkEquals(idat1, idat2)