Commit 2eac7993 authored by Chaos's avatar Chaos
Browse files

modified gtf.R and utilities.R in R

parent 2f82902d

R/gtf.R

+2 −1
Original line number Diff line number Diff line
@@ -32,7 +32,7 @@ gtf <- function( 
	type_str <-	type.list %>% 

				.[. %in% type] %>%

				c("rds") %>%  

				paste0(".",.,collapse = ".")

				paste0(".",.,collapse = "")



	rds_file <-	paste0(

					chaos_info("data_dir"),
@@ -49,6 +49,7 @@ gtf <- function( 
		readRDS(rds_file)

	}else{

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

		chaos_create_dir(chaos_info("data_dir"))

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

		print(paste0(rds_file," saved"))

		gtf

R/utilities.R

+1 −1
Original line number Diff line number Diff line
@@ -20,7 +20,7 @@ chaos_info <- function( 
chaos_create_dir <-	function(

						dir

){

	if(!dir.exists(dir)){dir.create(dir)}

	if(!dir.exists(dir)){dir.create(dir, recursive = T)}

}



update_chaos <- function(

CRA Git | Maintained and supported by SUSTech CRA and CCSE