Remove length variation messages

Not needed anymore as variable length amplicons have been fully
supported for a while now.

R/multiSample.R

@@ -31,7 +31,6 @@ makeSequenceTable <- function(samples, orderBy = "abundance") {
   if(!is.list(samples)) { stop("Requires a list of samples.") }
   unqs <- lapply(samples, getUniques)
   unqsqs <- unique(do.call(c, lapply(unqs, names)))
-  if(length(unique(nchar(unqsqs)))>1) { message("The sequences being tabled vary in length.") }
   rval <- matrix(0L, nrow=length(unqs), ncol=length(unqsqs))
   # Samples are rows, columns are sequences
   colnames(rval) <- unqsqs

R/sequenceIO.R

@@ -98,9 +98,6 @@ derepFastq <- function(fls, n = 1e6, verbose = FALSE){
               " total sequences read.")
     }
     close(f)
-    if(sum(tabulate(nchar(names(derepCounts)))>0) > 1) {
-      cat("Not all sequences were the same length.\n")
-    }
     derepO <- list(uniques=derepCounts, quals=derepQuals, map=derepMap)
     derepO <- as(derepO, "derep")
     rval[[i]] <- derepO