td <- tempdir()
res <- runExampleReport(n=5)
file.copy(system.file("extdata/fcsfiles.tar.gz", package="caFlowQ"), td)
owd <- setwd(td)
system("tar -xzvf fcsfiles.tar.gz")
setwd(owd)
inFiles <- paste("file://",
list.files(file.path(td, "fcsfiles"), full=TRUE),
sep="")
indir <- FileReferences(inFiles)
res <- runCustomReport(indir=indir)Run the code above in your browser using DataLab