Make CellsByIdentities into S3 generic

R/generics.R

@@ -375,6 +375,27 @@ Cells <- function(x, ...) {
   UseMethod(generic = 'Cells', object = x)
 }
 
+#' Get cell names grouped by identity class
+#'
+#' @template param-dots-method
+#' @param object An object
+#'
+#' @return A named list where names are identity classes and values are vectors
+#' of cells belonging to that class
+#'
+#' @rdname CellsByIdentities
+#' @export CellsByIdentities
+#'
+#' @concept data-access
+#' @family dimnames
+#'
+#' @examples
+#' CellsByIdentities(x = pbmc_small)
+#'
+CellsByIdentities <- function(object, ...) {
+  UseMethod(generic = 'CellsByIdentities', object = object)
+}
+
 #' Check Matrix Validity
 #'
 #' @template param-dots-method

R/seurat.R

@@ -154,24 +154,23 @@ setClass(
 
 #' Get cell names grouped by identity class
 #'
-#' @param object A Seurat object
 #' @param idents A vector of identity class levels to limit resulting list to;
 #' defaults to all identity class levels
 #' @param cells A vector of cells to grouping to
 #' @param return.null If no cells are requested, return a \code{NULL};
 #' by default, throws an error
 #'
-#' @return A named list where names are identity classes and values are vectors
-#' of cells belonging to that class
-#'
+#' @rdname CellsByIdentities
 #' @export
+#' @method CellsByIdentities Seurat
 #'
 #' @concept data-access
 #'
 #' @examples
 #' CellsByIdentities(object = pbmc_small)
 #'
-CellsByIdentities <- function(
+
+CellsByIdentities.Seurat <- function(
   object,
   idents = NULL,
   cells = NULL,