add missing *_keys functions

scverse · Sep 20, 2023 · b4e1239 · b4e1239
1 parent e56b2dc
commit b4e1239
Showing 1 changed file with 21 additions and 5 deletions.
diff --git a/R/AbstractAnnData.R b/R/AbstractAnnData.R
@@ -97,13 +97,13 @@ AbstractAnnData <- R6::R6Class("AbstractAnnData", # nolint
             NULL
           }
         if (length(keys) > 0) {
-            cat(
-              "    ", attribute, ":",
+          cat(
+            "    ", attribute, ":",
             paste("'", keys, "'", collapse = ", "),
-              "\n", sep = ""
-            )
-          }
+            "\n", sep = ""
+          )
         }
+      }
     },
 
     #' @description Dimensions (observations x variables) of the AnnData object.
@@ -133,6 +133,22 @@ AbstractAnnData <- R6::R6Class("AbstractAnnData", # nolint
     layers_keys = function() {
       names(self$layers)
     },
+    #' @description Keys (element names) of `obsm`.
+    obsm_keys = function() {
+      names(self$obsm)
+    },
+    #' @description Keys (element names) of `varm`.
+    varm_keys = function() {
+      names(self$varm)
+    },
+    #' @description Keys (element names) of `obsp`.
+    obsp_keys = function() {
+      names(self$obsp)
+    },
+    #' @description Keys (element names) of `varp`.
+    varp_keys = function() {
+      names(self$varp)
+    },
     #' @description Convert to SingleCellExperiment
     to_SingleCellExperiment = function() {
       to_SingleCellExperiment(self)