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

R/chr_size.R

+12 −5

Original line number	Diff line number	Diff line
		@@ -27,7 +27,9 @@ chr_size <- function(
		ref = "hg38",
		mit = FALSE,
		extra = FALSE,
		online = FALSE
		online = FALSE,
		show_ref = FALSE,
		show_group = FALSE
		){
		extdata_dir <- chaos_info("data_dir")
		chr_size_data <- file.path(extdata_dir,"chr_size.rds")
		@@ -69,10 +71,15 @@ chr_size <- function(

		if(isFALSE(extra))
		{
		dt[group != "extra",.(chr,length)]
		}else
		{
		dt[,.(chr,length)]
		dt[group != "extra"]
		}

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

		if(isFALSE(show_group)){
		dt[,group := NULL]
		}
		}
		}