modified dturtle.R in R (02cc1b4f) · Commits · Chaos / chaos.tools

R/dturtle.R

+8 −4

Original line number	Diff line number	Diff line
		@@ -27,20 +27,24 @@ tx2gene <- function(organism){
		}

		dtu <- function(
		ctl_count_file,
		ctl_count_files,
		ctl_name,
		obs_count_file,
		obs_count_files,
		obs_name,
		result_dir,
		organism = "mouse"
		){
		tx2gene <- tx2gene("mouse")

		names(ctl_count_file) <- gsub("/quant.sf","",ctl_count_file) \|>
		if(is.na(names(ctl_count_files))){
		names(ctl_count_files) <- gsub("/quant.sf","",ctl_count_files) \|>
		basename()
		}

		names(obs_count_files) <- gsub("/quant.sf","",ctl_count_file) \|>
		if(is.na(names(obs_count_files))){
		names(obs_count_files) <- gsub("/quant.sf","",obs_count_files) \|>
		basename()
		}

		cts <- c(ctl_count_files,obs_count_files) \|>
		import_counts(