library(SeuratObject)
library(Seurat)
data("pbmc_small", package="SeuratObject")
cs <- cluster_set_from_seurat(pbmc_small, Seurat::FindAllMarkers(pbmc_small))
cs <- top_genes(cs)
Error in base::colMeans(x, na.rm = na.rm, dims = dims, ...) :
'x' must be an array of at least two dimensions