modified chr_size.R in R (121248ac) · Commits · Chaos / chaos.tools

R/chr_size.R

+6 −6

Original line number	Diff line number	Diff line
		@@ -23,7 +23,7 @@ online_genome_process <- function(
		]
		}

		chr_size <- function(
		chr_size2 <- function(
		ref = "hg38",
		mit = FALSE,
		extra = FALSE,
		@@ -64,22 +64,22 @@ chr_size <- function(
		saveRDS(file = chr_size_data)
		}

		if(isFALSE(mit))
		{
		if(isFALSE(mit)){
		dt <- dt[group != "mitochondrion"]
		}

		if(isFALSE(extra))
		{
		if(isFALSE(extra)){
		dt <- dt[group != "extra"]
		}

		if(isFALSE(show_ref)){
		dt[,name := NULL][]
		dt[,name := NULL]
		}

		if(isFALSE(show_group)){
		dt[,group := NULL][]
		}else{
		dt
		}
		}
		}
		No newline at end of file