{library(Seurat) library(tidyverse) library(purrr)} dirNames <- unique(dirname(list.files("data/scRNA_CITE",