Add functions to list assay and dimreduc names

NAMESPACE

@@ -161,6 +161,7 @@ export("VariableFeatures<-")
 export(ALRAChooseKPlot)
 export(AddMetaData)
 export(AddModuleScore)
+export(Assays)
 export(AugmentPlot)
 export(AverageExpression)
 export(BarcodeInflectionsPlot)
@@ -260,6 +261,7 @@ export(Read10X_h5)
 export(ReadAlevin)
 export(ReadAlevinCsv)
 export(ReadH5AD)
+export(Reductions)
 export(RelativeCounts)
 export(RenameCells)
 export(RenameIdents)

R/objects.R

@@ -320,6 +320,20 @@ seurat <- setClass(
 # Functions
 #%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 
+#' List Assay objects
+#' 
+#' Lists the names of \code{\link{Assay}} objects present in 
+#' a Seurat object.
+#' 
+#' @param object A Seurat object
+#' @return Returns a character vector
+#' @export
+#' @examples 
+#' Assays(object = pbmc_small)
+Assays <- function(object) {
+  return(FilterObjects(object = object, classes.keep = 'Assay'))
+}
+
 #' Create an Assay object
 #'
 #' Create an Assay object from a feature (e.g. gene) expression matrix. The
@@ -3583,6 +3597,20 @@ ReadH5AD.H5File <- function(file, assay = 'RNA', verbose = TRUE, ...) {
   return(object)
 }
 
+#' List DimReduc objects
+#' 
+#' Lists the names of \code{\link{DimReduc}} objects present in 
+#' a Seurat object.
+#' 
+#' @param object A Seurat object
+#' @return Returns a character vector
+#' @export
+#' @examples 
+#' Reductions(object = pbmc_small)
+Reductions <- function(object) {
+  return(FilterObjects(object = object, classes.keep = 'DimReduc'))
+}
+
 #' @param reverse Reverse ordering
 #' @param afxn Function to evaluate each identity class based on; default is
 #' \code{\link[base]{mean}}