## Use first three samples of the builtin dataset
sample_root <- system.file("extdata", package = "iGC")
sample_desc_pth <- file.path(sample_root, "sample_desc.csv")
sample_desc <- create_sample_desc(
sample_desc_pth, sample_root=sample_root
)[1:3]
## Define custom reader function for TCGA level 3 data
my_gene_exp_reader <- function(ge_filepath) {
gene_exp <- read.table(
ge_filepath,
header = FALSE, skip = 2,
na.strings = "null",
colClasses = c("character", "double")
)
dt <- data.table::as.data.table(gene_exp)
data.table::setnames(dt, c("GENE", "Expression"))
}
gene_exp <- create_gene_exp(
sample_desc,
read_fun = my_gene_exp_reader,
progress_width = 60
)
gene_exp[1:5]Run the code above in your browser using DataLab