diff --git a/R/DataProcessingReport/GetTearsheetStats.R b/R/DataProcessingReport/GetTearsheetStats.R index 54f9b24bd..e7ac7a436 100644 --- a/R/DataProcessingReport/GetTearsheetStats.R +++ b/R/DataProcessingReport/GetTearsheetStats.R @@ -16,7 +16,7 @@ suppressMessages(library(ROracle)); cmdargs = gsa.getargs( list( - #yaml = list(value=NA, doc="pipeline YAML file"), + yaml = list(value=NA, doc="pipeline YAML file"), bamlist = list(value=NA, doc="list of BAM files"), evalroot = list(value=NA, doc="VariantEval root"), tearout = list(value=NA, doc="Output path for tearsheet PDF")#, @@ -28,7 +28,7 @@ cmdargs = gsa.getargs( bamlist = scan(cmdargs$bamlist, "character"); #print(paste("grep SQUID ", cmdargs$yaml, ' |grep "C..." -o', sep="")) -squids <- system(paste("grep SQUID ", sub("cleaned.BamFiles.list", "yaml",cmdargs$bamlist), ' |grep "C..." -o', sep=""), intern=TRUE) +squids <- system(paste("grep SQUID ", cmdargs$yaml, ' |grep "C..." -o', sep=""), intern=TRUE) indexed = c(); nonindexed = c(); for (bam in bamlist) {