tests/testthat/test_Run2.R

library(basecallQC)
context("Test 2nd Run example")
fileLocations <- system.file("extdata",package="basecallQC")
runXML <- dir(file.path(fileLocations,"Runs/170217_D00467_0227_ACADN3ANXX/"),pattern="runParameters.xml",full.names=TRUE)
config <- dir(fileLocations,pattern="config.ini",full.names=TRUE)
sampleSheet <- dir(file.path(fileLocations,"Runs/170217_D00467_0227_ACADN3ANXX/"),pattern="*\\.csv",full.names=TRUE)
bcl2fastqparams <- BCL2FastQparams(runXML,config,runDir=getwd(),verbose=FALSE)
bclQC <- basecallQC(bcl2fastqparams,RunMetaData=NULL,sampleSheet)

#'


expect_that(length(unique(bclQC@cleanedSampleSheet$Sample_Project)) ==
                     length(levels(read.delim(sampleSheet,header=T,sep=",")$Project)),
                     is_true()
            )
ThomasCarroll/basecallQC documentation built on May 9, 2019, 4:45 p.m.