Warn error rates weren't estimated only when selfConsist=TRUE

Not necessary otherwise. Closes benjjneb#469
leholman · Oct 10, 2018 · c630b00 · c630b00
1 parent 9d24992
commit c630b00
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/R/dada.R b/R/dada.R
@@ -368,7 +368,9 @@ dada <- function(derep,
     } else {
       err <- tryCatch(suppressWarnings(errorEstimationFunction(cur)),
               error = function(cond) {
-                if(verbose) message("Error rates could not be estimated.")
+                if((verbose && selfConsist) || verbose >= 2) {
+                  message("Error rates could not be estimated (this is usually because of very few reads).")
+                }
                 return(NULL)
       })
     }