adjust example for merging with external counts to new strandSpecific…

… vector
gagneurlab · May 2, 2024 · be67137 · be67137
1 parent 291cfcc
commit be67137
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 1 deletion.
diff --git a/R/mergeExternalData.R b/R/mergeExternalData.R
@@ -93,7 +93,7 @@ mergeExternalData <- function(fds, countFiles, sampleIDs, annotation=NULL){
     rownames(annotation) <- annotation[,"sampleID"]
     newColData <- DataFrame(rbind(fill=TRUE,
             as.data.table(colData(fds)),
-            as.data.table(annotation[sampleIDs,])))
+            as.data.table(annotation[sampleIDs,,drop=FALSE])))
     rownames(newColData) <- newColData[,"sampleID"]
 
     #

diff --git a/inst/extdata/externalCounts/annotation.tsv.gz b/inst/extdata/externalCounts/annotation.tsv.gz