Merge pull request Vitek-Lab#36 from jpfeuffer/fix/stage3filter

[FIX] Corner case during stage 3 filtering of features
jpfeuffer · May 18, 2020 · c9d7e36 · c9d7e36
2 parents 0fd3a93 + a10222c
commit c9d7e36
Showing 1 changed file with 5 additions and 3 deletions.
diff --git a/R/DataProcess.R b/R/DataProcess.R
@@ -539,10 +539,12 @@ dataProcess  <-  function(raw,
 	                                     function(x) max(x))
 	                max.feature.1 <- count.feature3[max.feature == 1, 'FEATURE'] 
 
-	                work <- work[-which(work$FEATURE %in% max.feature.1), ]
-	                
-	                count.feature3 <- count.feature3[-which(count.feature3$FEATURE %in% max.feature.1), ]
+			if (length(max.feature.1) > 0)
+          		{
+	                    work <- work[-which(work$FEATURE %in% max.feature.1), ]
 
+	                    count.feature3 <- count.feature3[-which(count.feature3$FEATURE %in% max.feature.1), ]
+	                }
 	                if ( nrow(count.feature3) > 0 ) {
 
 	                    ###############