Commit 1eed82d8 authored by fc-ibb105's avatar fc-ibb105
Browse files

modified chr_size.R and dturtle.R in R

parent 61a2ced1

R/chr_size.R

+2 −2
Original line number Diff line number Diff line
@@ -41,7 +41,7 @@ c.chr_size <- function( 
		}

		genome_list <- NULL

	}else{

		raw_data <- readRDS(chr_size_data)

		raw_data <- c.readRDS(chr_size_data)

		genome_list <-	raw_data[,name] |>

						unique()

	}
@@ -61,7 +61,7 @@ c.chr_size <- function( 
				dt,

				raw_data

			) |>

			saveRDS(file = chr_size_data)

			c.saveRDS(file = chr_size_data)

		}



		if(isFALSE(mit)){

R/dturtle.R

+2 −2
Original line number Diff line number Diff line
@@ -19,9 +19,9 @@ tx2gene <- function(organism){ 
										name = tx2gene$transcript_name, 

										id = tx2gene$transcript_id

									)

		saveRDS(tx2gene,tx2gene_file,compress = "xz")

		c.saveRDS(tx2gene,tx2gene_file)

	}else{

		tx2gene <- readRDS(tx2gene_file)

		tx2gene <- c.readRDS(tx2gene_file)

	}

	tx2gene

}

CRA Git | Maintained and supported by SUSTech CRA and CCSE