git-svn-id: file:///home/git/hedgehog.fhcrc.org/bioconductor/trunk/madman/Rpacks/gmapR@93878 bc3139a8-67e5-0310-9ffc-ced21a209358
Michael Lawrence authored on 05/09/2014 21:50:22
| ... | ... |
@@ -3,8 +3,11 @@ geneGenomeName <- function(gene) {
|
| 3 | 3 |
} |
| 4 | 4 |
|
| 5 | 5 |
TP53Genome <- function() {
|
| 6 |
- gene <- "TP53" |
|
| 7 |
- genomeName <- geneGenomeName(gene) |
|
| 6 |
+ GeneGenome("TP53")
|
|
| 7 |
+} |
|
| 8 |
+ |
|
| 9 |
+GeneGenome <- function(gene) {
|
|
| 10 |
+ genomeName <- geneGenomeName(paste(gene, collapse="_")) |
|
| 8 | 11 |
|
| 9 | 12 |
if (genomeName %in% genome(GmapGenomeDirectory(create=TRUE))) {
|
| 10 | 13 |
GmapGenome(genomeName) |