tests/readIDAT_370k_gz.R

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)

Try the illuminaio package in your browser

Any scripts or data that you put into this service are public.

illuminaio documentation built on Nov. 8, 2020, 7:51 p.m.