Print Seurat object slot sizes in MB

SeuratObjSize.R

SeuratObjSize <- function(seurat_obj) {
  all_slots <- slotNames(seurat_obj)
  
  for (i in seq_along(all_slots)) {
    obj_size <- object.size(slot(seurat_obj, all_slots[i]))
    
    print(all_slots[i])
    print(obj_size, units = "MB")
    cat("\n")
  }

  assay_names <- names(seurat_obj@assays)
  for (i in seq_along(assay_names)) {
    assay_size <- object.size(seurat_obj@assays[assay_names[i]])

    print(assay_names[i])
    print(assay_size, units = "MB")
    cat("\n")
  }
}

SeuratObjSize(seurat_obj)