Commit 955d6f5e authored by fc-ibb105's avatar fc-ibb105
Browse files

c.create

parent 923ba5e4

R/gene_density.R

+1 −1
Original line number Diff line number Diff line
@@ -87,7 +87,7 @@ gene_density <- function( 


	gene_density_file <- file.path(chaos_data_dir(),"gene_density.txt.gz")



	chaos_create_dir(package_data_dir)

	c.create_dir(package_data_dir)



	if(!file.exists(gene_density_file)){

		gene_density <- gene_density_calc(

R/gtf.R

+2 −2
Original line number Diff line number Diff line
@@ -50,7 +50,7 @@ gtf <- function( 
	}else{

		if(length(type) == 0){type <- NULL}

		gtf <- BiocIO::import(gtf_file,feature.type = type)

		chaos_create_dir(c.info("data_dir"))

		c.create_dir(c.info("data_dir"))

        saveRDS(gtf,rds_file,compress = "xz")

		print(paste0(rds_file," saved"))

		gtf
@@ -73,7 +73,7 @@ txdb <- function( 
	if(file.exists(txdb_file)){

		loadDb(txdb_file)

	}else{

		c.info("data_dir") |> chaos_create_dir()

		c.info("data_dir") |> c.create_dir()

		txdb <-	gtf_file |>

				makeTxDbFromGFF(

					dataSource = c.basename(gtf_file,".gz"),

CRA Git | Maintained and supported by SUSTech CRA and CCSE