From f9b20c2c08c799ab7d54ff122ded5bb4db86e8ee Mon Sep 17 00:00:00 2001 From: fcq <1219138956@qq.com> Date: Tue, 11 Jun 2024 23:50:55 +0800 Subject: [PATCH] fix the bug of irGSEA.merge --- DESCRIPTION | 2 +- R/irGSEA.merge.R | 5 +++-- README.Rmd | 1 + README.md | 4 +++- 4 files changed, 8 insertions(+), 4 deletions(-) diff --git a/DESCRIPTION b/DESCRIPTION index 6429eb5..26b2dcc 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,7 +1,7 @@ Package: irGSEA Type: Package Title: The integration of single cell rank-based gene set enrichment analysis -Version: 3.2.7 +Version: 3.2.8 Author: Chuiqin Fan Author@R: person("Chuiqin", "Fan", role = c('aut', 'cre'), email = '19cqfan@stu.edu.cn') Maintainer: Chuiqin Fan <19cqfan@stu.edu.cn> diff --git a/R/irGSEA.merge.R b/R/irGSEA.merge.R index b1d71f3..b90f657 100644 --- a/R/irGSEA.merge.R +++ b/R/irGSEA.merge.R @@ -107,9 +107,10 @@ irGSEA.merge <- function(object.x = NULL, object.y = NULL, }else{ - index.intersect <- match(rownames(acts.y), rownames(acts.x)) + index.intersect <- match(rownames(acts.x), rownames(acts.y)) if (any(!is.na(index.intersect))) { - rownames(acts.y)[index.intersect] <- paste0(rownames(acts.y)[index.intersect], "-1") + index.intersect2 <- index.intersect[!is.na(index.intersect)] + rownames(acts.y)[index.intersect2] <- paste0(rownames(acts.y)[index.intersect2], "-1") acts <- rbind(acts.x, acts.y) }else{ acts <- rbind(acts.x, acts.y) diff --git a/README.Rmd b/README.Rmd index 43f65d2..76ad275 100644 --- a/README.Rmd +++ b/README.Rmd @@ -26,6 +26,7 @@ For more details, please view [irGSEA](https://chuiqin.github.io/irGSEA/) And you can view: [Chinese tutorial_1](https://www.jianshu.com/p/463dd6e2986f) [Chinese tutorial_2](https://www.jianshu.com/p/66c365352613) + Cite: irGSEA: the integration of single-cell rank-based gene set enrichment analysis, Briefings in Bioinformatics, Volume 25, Issue 4, July 2024, bbae243, https://doi.org/10.1093/bib/bbae243 # 0.Graph Abstrast diff --git a/README.md b/README.md index 2a9c97c..1c39fc4 100644 --- a/README.md +++ b/README.md @@ -12,7 +12,9 @@ easy to visualize the results. For more details, please view [irGSEA](https://chuiqin.github.io/irGSEA/) And you can view: [Chinese tutorial_1](https://www.jianshu.com/p/463dd6e2986f) [Chinese -tutorial_2](https://www.jianshu.com/p/66c365352613) Cite: irGSEA: the +tutorial_2](https://www.jianshu.com/p/66c365352613) + +Cite: irGSEA: the integration of single-cell rank-based gene set enrichment analysis, Briefings in Bioinformatics, Volume 25, Issue 4, July 2024, bbae243,