modified scRNA.R in R (bccddf30) · Commits · Chaos / chaos.tools

R/scRNA.R

+4 −4

Original line number	Diff line number	Diff line
		chaos.solo_meta <- function(
		c.solo_meta <- function(
		id,
		type,
		star_dir = "~/project.isynbio/mengqian/STAR_result",
		@@ -28,7 +28,7 @@ chaos.solo_meta <- function(
		}
		}

		chaos.solo_velocyto <- function(
		c.solo_velocyto <- function(
		id,
		star_dir = "~/project.isynbio/mengqian/STAR_result"
		){
		@@ -41,8 +41,8 @@ chaos.solo_velocyto <- function(
		paste0(x,".mtx.gz") %>%
		file.path(mtx_dir,.) %>%
		Matrix::readMM() \|>
		set_colnames(chaos.solo_meta(id,type = "barcode")) \|>
		set_rownames(chaos.solo_meta(id,type = "symbol"))
		set_colnames(c.solo_meta(id,type = "barcode")) \|>
		set_rownames(c.solo_meta(id,type = "symbol"))
		},
		mc.cores = 3
		) \|>