fixbugLoadCountData

PF2-pasteur-fr · Jun 14, 2019 · 625dfc2 · 625dfc2
1 parent 5dbaa62
commit 625dfc2
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/loadCountData.R b/R/loadCountData.R
@@ -38,7 +38,7 @@ loadCountData <- function(target, rawDir="raw", skip=0, featuresToRemove=c("alig
   colnames(rawCounts) <- c("Id", labels[1])
   if (any(duplicated(rawCounts$Id))){
     stop("Duplicated feature names in ", files[1], ": ", 
-         unique(paste(rawCounts$Id[duplicated(rawCounts$Id)]), collapse=", "))
+         unique(paste(rawCounts$Id[duplicated(rawCounts$Id)], collapse=", ")))
   }
   cat("Loading files:\n")
   cat(files[1],": ",length(rawCounts[,labels[1]])," rows and ",sum(rawCounts[,labels[1]]==0)," null count(s)\n",sep="")
@@ -49,7 +49,7 @@ loadCountData <- function(target, rawDir="raw", skip=0, featuresToRemove=c("alig
     colnames(tmp) <- c("Id", labels[i])
     if (any(duplicated(tmp$Id))){
       stop("Duplicated feature names in ", files[i], ": ", 
-           unique(paste(tmp$Id[duplicated(tmp$Id)]), collapse=", "))
+           unique(paste(tmp$Id[duplicated(tmp$Id)], collapse=", ")))
     }
     rawCounts <- merge(rawCounts, tmp, by="Id", all=TRUE)
     cat(files[i],": ",length(tmp[,labels[i]])," rows and ",sum(tmp[,labels[i]]==0)," null count(s)\n",sep="")