Browse code

Save callSet after construct.Illumina in the genotype.illumina function

git-svn-id: file:///home/git/hedgehog.fhcrc.org/bioconductor/trunk/madman/Rpacks/crlmm@52838 bc3139a8-67e5-0310-9ffc-ced21a209358

Rob Scharp authored on 16/02/2011 15:58:32
Showing 1 changed files

... ...
@@ -1123,13 +1123,12 @@ genotype.Illumina = function(sampleSheet=NULL,
1123 1123
         pkgname = getCrlmmAnnotationName(cdfName)
1124 1124
 #        if(missing(outdir))
1125 1125
 #          stop("Must specify a directory to store large data objects")
1126
-	callSet = construct.Illumina(sampleSheet=sampleSheet, arrayNames=arrayNames,
1127
-			                 ids=ids, path=path, arrayInfoColNames=arrayInfoColNames,
1128
-                             highDensity=highDensity, sep=sep, fileExt=fileExt,
1129
-			                 cdfName=cdfName, copynumber=copynumber, verbose=verbose, batch=batch, # fns=fns, 
1130
-                             saveDate=saveDate) #, outdir=outdir)
1126
+	callSet <- construct.Illumina(sampleSheet=sampleSheet, arrayNames=arrayNames,
1127
+				      ids=ids, path=path, arrayInfoColNames=arrayInfoColNames,
1128
+				      highDensity=highDensity, sep=sep, fileExt=fileExt,
1129
+				      cdfName=cdfName, copynumber=copynumber, verbose=verbose, batch=batch, # fns=fns, 
1130
+				      saveDate=saveDate) #, outdir=outdir)
1131 1131
 	if(missing(sns)) sns = sampleNames(callSet)
1132
-    
1133 1132
     if(is.lds) {
1134 1133
 		open(A(callSet))
1135 1134
 		open(B(callSet))
... ...
@@ -1328,4 +1327,4 @@ processIDAT =  function(sel, sampleSheet=NULL,
1328 1327
         rm(res)
1329 1328
 		gc()
1330 1329
         TRUE
1331
-      }
1332 1330
\ No newline at end of file
1331
+      }