fix the bug of irGSEA.merge

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>

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)

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

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,
 <https://doi.org/10.1093/bib/bbae243>