Update filter.R

Fixes #2067
benjjneb · Jan 8, 2025 · 10d3bf2 · 10d3bf2
1 parent 7714487
commit 10d3bf2
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/R/filter.R b/R/filter.R
@@ -1097,15  1097,15 @@ fastqPairedFilter <- function(fn, fout, maxN = c(0,0), truncQ = c(2,2), truncLen
     }
 
     # Remove low complexity
-    if(rm.lowcomplex[[1]] > 0 && rm.lowcomplex[[2]] > 0) {
     if(rm.lowcomplex[[1]] && rm.lowcomplex[[2]]) {
       is.lowc <- (seqComplexity(sread(fqF), ...) < rm.lowcomplex[[1]])
-      is.lowc <- is.lowc | (seqComplexity(sread(fqF), ...) < rm.lowcomplex[[2]])
       is.lowc <- is.lowc | (seqComplexity(sread(fqR), ...) < rm.lowcomplex[[2]])
     } else if(rm.lowcomplex[[1]] && !rm.lowcomplex[[2]]) {
       is.lowc <- (seqComplexity(sread(fqF), ...) < rm.lowcomplex[[1]])
     } else if(!rm.lowcomplex[[1]] && rm.lowcomplex[[2]]) {
       is.lowc <- (seqComplexity(sread(fqR), ...) < rm.lowcomplex[[2]])
     }
-    if(rm.lowcomplex[[1]] > 0 && rm.lowcomplex[[2]] > 0) {
     if(rm.lowcomplex[[1]] || rm.lowcomplex[[2]]) {
       fqF <- fqF[!is.lowc]
       fqR <- fqR[!is.lowc]
     }