Changed construction of sclass (for xcms) using isaobject #5

ISA-tools · Jul 20, 2012 · d3d9680 · d3d9680
1 parent a483557
commit d3d9680
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/rISAtab.r b/R/rISAtab.r
@@ -250,7 +250,7 @@ processAssayType = function(isa)
 
               if (length(grep("Factor.Value", colnames(isa$study_files[[i]]))) != 0) {
                 ## If there are explicit factors, use them
-                sclass = metadata[ which(metadata$Sample.Name %in% pd$Sample.Name), grep("Factor.Value", colnames(metadata))[1]]
+                sclass = isa$study_files[[i]][ which(isa$study_files[[i]]$Sample.Name %in% pd$Sample.Name), grep("Factor.Value", colnames(isa$study_files[[i]]))[1]]
                 isa[[i]] = xcmsSet(files=msfiles, sclass=sclass)
               } else {
                   ## Otherwise just use what was there