add a SingleCellExperiment method for gsvaAssayNames()

rcastelo · Apr 11, 2024 · 3ff456d · 3ff456d
1 parent d8f7964
commit 3ff456d
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 1 deletion.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,5 +1,5 @@
 Package: GSVA
-Version: 1.50.2
+Version: 1.50.3
 Title: Gene Set Variation Analysis for Microarray and RNA-Seq Data
 Authors@R: c(person("Robert", "Castelo", role=c("aut", "cre"), email="[email protected]"),
              person("Justin", "Guinney", role="aut", email="[email protected]"),

diff --git a/R/GsvaMethodParam.R b/R/GsvaMethodParam.R
@@ -148,3 +148,9 @@ setMethod("gsvaAssayNames", signature("SummarizedExperiment"),
               a <- assayNames(object)
               return(if(.isCharNonEmpty(a)) a else NA_character_)
           })
+
+setMethod("gsvaAssayNames", signature("SingleCellExperiment"),
+          function(object) {
+              a <- assayNames(object)
+              return(if(.isCharNonEmpty(a)) a else NA_character_)
+          })