From 23efd66d319795e8df935179720b2ea129e9328a Mon Sep 17 00:00:00 2001 From: corin Date: Wed, 4 May 2011 16:57:48 +0000 Subject: [PATCH] Updated Tearsheet with by sample QC metrics, bugfix for misnamed variables git-svn-id: file:///humgen/gsa-scr1/gsa-engineering/svn_contents/trunk@5754 348d0f76-0448-11de-a6fe-93d51630548a --- R/DataProcessingReport/Tearsheet.R | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) diff --git a/R/DataProcessingReport/Tearsheet.R b/R/DataProcessingReport/Tearsheet.R index 5168f1abe..e685e7257 100644 --- a/R/DataProcessingReport/Tearsheet.R +++ b/R/DataProcessingReport/Tearsheet.R @@ -1,7 +1,6 @@ #tearsheet (for cori's use) #New tearsheet generator -.libPaths('/humgen/gsa-firehose2/pipeline/repositories/StingProduction/R/') #uncomment -#.libPaths('~/Documents/Sting/R/') +.libPaths('/humgen/gsa-firehose2/pipeline/repositories/StingProduction/R/') suppressMessages(library(gplots)); suppressMessages(library(ReadImages)); @@ -19,7 +18,7 @@ cmdargs = gsa.getargs( doc="Creates a tearsheet" ); -read.delim(tsv)->settable +read.delim(cmdargs$tsv)->settable squids<-unique(settable[,1]) @@ -53,14 +52,13 @@ tearsheet<-function(){ #plot title bar par(mar=c(0,0,0,0)) plot(drop) - text(155, 50, title, family="serif", adj=c(0,0), cex=3, col=gray(.25)) + text(155, 50, cmdargs$title, family="serif", adj=c(0,0), cex=3, col=gray(.25)) # Project summary projects = paste(squids, collapse=", "); -# used_samples = nrow(tsv); - used_samples=6 #comment + used_samples = nrow(settable); unused_samples = 0;