add dr slot to compareClusterResult, enrichRestul and gseaResult

NEWS.md

@@ -1,5 +1,7 @@
-# DOSE 3.17.1
+# DOSE 3.19.0.991
++ add `dr` slot to `compareClusterResult`, `enrichRestul` and `gseaResult`(2021-5-21, Fri)
 
+# DOSE 3.17
 + support setting seed for fgsea method if e.g. `gseGO(seed = TRUE)` (2020-10-28, Wed)
   - <https://github.com/YuLab-SMU/DOSE/issues/45>
 

R/00-AllClasses.R

@@ -16,6 +16,7 @@
 ##' @slot .call function call
 ##' @slot termsim Similarity between term
 ##' @slot method method of calculating the similarity between nodes
+##' @slot dr dimension reduction result
 ##' @exportClass compareClusterResult
 ##' @author Guangchuang Yu \url{https://guangchuangyu.github.io}
 ##' @exportClass compareClusterResult
@@ -32,7 +33,8 @@ setClass("compareClusterResult",
              readable       = "logical",
              .call          = "call",
              termsim        = "matrix",
-             method         = "character"
+             method         = "character",
+             dr             = "list"
          )
          )
 
@@ -59,6 +61,7 @@ setClass("compareClusterResult",
 ##' @slot readable logical flag of gene ID in symbol or not.
 ##' @slot termsim Similarity between term
 ##' @slot method method of calculating the similarity between nodes
+##' @slot dr dimension reduction result
 ##' @exportClass enrichResult
 ##' @author Guangchuang Yu \url{https://guangchuangyu.github.io}
 ##' @seealso \code{\link{enrichDO}}
@@ -78,7 +81,8 @@ setClass("enrichResult",
              geneSets       = "list",
              readable       = "logical",
              termsim        = "matrix",
-             method         = "character"
+             method         = "character",
+             dr             = "list"
              ),
          prototype=prototype(readable = FALSE)
          )
@@ -104,6 +108,7 @@ setClass("enrichResult",
 ##' @slot params parameters
 ##' @slot gene2Symbol gene ID to Symbol
 ##' @slot readable whether convert gene ID to symbol
+##' @slot dr dimension reduction result
 ##' @exportClass gseaResult
 ##' @author Guangchuang Yu \url{https://guangchuangyu.github.io}
 ##' @keywords classes
@@ -120,7 +125,8 @@ setClass("gseaResult",
              gene2Symbol     = "character",
              readable        = "logical",
              termsim         = "matrix",
-             method          = "character"
+             method          = "character",
+             dr              = "list"
          )
          )