modified gtf.R in R

	if(file.exists(rds_file)){

		print(paste0(rds_file," exists, reading file"))

		readRDS(rds_file)

		c.readRDS(rds_file)

	}else{

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

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

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

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

        c.saveRDS(gtf,rds_file)

		print(paste0(rds_file," saved"))

		gtf

	}