Skip to content

Commit

Permalink
Merge pull request #244 from pilm-bioinformatics/lpantano-salmon-txim…
Browse files Browse the repository at this point in the history
…port-patch

fix mismatch between tx2gene and quant.sf
  • Loading branch information
apeltzer authored Jul 7, 2019
2 parents 034ee2a + 21bf9d8 commit 848241a
Showing 1 changed file with 18 additions and 9 deletions.
27 changes: 18 additions & 9 deletions bin/tximport.r
Original file line number Diff line number Diff line change
Expand Up @@ -40,21 +40,30 @@ library(tximport)

txi = tximport(fns, type = "salmon", txOut = TRUE)
rownames(coldata) = coldata[["names"]]
rowdata = rowdata[match(rownames(txi[[1]]), rowdata[["tx"]]),]
extra = setdiff(rownames(txi[[1]]), as.character(rowdata[["tx"]]))
if (length(extra) > 0){
rowdata = rbind(rowdata,
data.frame(tx=extra,
gene_id=extra,
gene_name=extra))
}
rowdata = rowdata[match(rownames(txi[[1]]), as.character(rowdata[["tx"]])),]
rownames(rowdata) = rowdata[["tx"]]
se = SummarizedExperiment(assays = list(counts = txi[["counts"]],
abundance = txi[["abundance"]],
length = txi[["length"]]),
colData = DataFrame(coldata),
rowData = rowdata)
if (!is.null(tx2gene)){
gi = summarizeToGene(txi, tx2gene = tx2gene)
growdata = unique(rowdata[,2:3])
growdata = growdata[match(rownames(gi[[1]]), growdata[["gene_id"]]),]
gse = SummarizedExperiment(assays = list(counts = gi[["counts"]],
abundance = gi[["abundance"]],
length = gi[["length"]]),
colData = DataFrame(coldata),
rowData = growdata)
gi = summarizeToGene(txi, tx2gene = tx2gene)
growdata = unique(rowdata[,2:3])
growdata = growdata[match(rownames(gi[[1]]), growdata[["gene_id"]]),]
rownames(growdata) = growdata[["tx"]]
gse = SummarizedExperiment(assays = list(counts = gi[["counts"]],
abundance = gi[["abundance"]],
length = gi[["length"]]),
colData = DataFrame(coldata),
rowData = growdata)
}

if(exists("gse")){
Expand Down

0 comments on commit 848241a

Please sign in to comment.