Loading R/gtf.R +2 −2 Original line number Diff line number Diff line Loading @@ -27,7 +27,7 @@ gtf <- function( ) type.list <- c("gene","transcript","exon","CDS","start_codon","stop_codon","UTR","Selenocysteine") type2 <- type %>% .[. %in% type.list] type <- type %>% .[. %in% type.list] type_str <- type.list %>% .[. %in% type] %>% Loading @@ -48,7 +48,7 @@ gtf <- function( print(paste0(rds_file," exists, reading file")) readRDS(rds_file) }else{ if(length(type) == 0){type <- NA} if(length(type) == 0){type <- NULL} gtf <- BiocIO::import(gtf_file,feature.type = type) chaos_create_dir(chaos_info("data_dir")) saveRDS(gtf,rds_file,compress = "xz") Loading Loading
R/gtf.R +2 −2 Original line number Diff line number Diff line Loading @@ -27,7 +27,7 @@ gtf <- function( ) type.list <- c("gene","transcript","exon","CDS","start_codon","stop_codon","UTR","Selenocysteine") type2 <- type %>% .[. %in% type.list] type <- type %>% .[. %in% type.list] type_str <- type.list %>% .[. %in% type] %>% Loading @@ -48,7 +48,7 @@ gtf <- function( print(paste0(rds_file," exists, reading file")) readRDS(rds_file) }else{ if(length(type) == 0){type <- NA} if(length(type) == 0){type <- NULL} gtf <- BiocIO::import(gtf_file,feature.type = type) chaos_create_dir(chaos_info("data_dir")) saveRDS(gtf,rds_file,compress = "xz") Loading
