data-raw/drug_gene_queries/pert_names.R

pert_names <- list.files('data-raw/drug_gene_queries/data')

pert_names <- gsub('.rds$', '', pert_names)
pert_names <- gsub('^.+?_res_', '', pert_names)
pert_names <- unique(pert_names)

saveRDS(pert_names, 'data-raw/drug_gene_queries/pert_names.rds')
hms-dbmi/dseqr documentation built on Oct. 22, 2024, 12:10 a.m.