git-svn-id: https://hedgehog.fhcrc.org/bioconductor/trunk/madman/Rpacks/MotifDb@75310 bc3139a8-67e5-0310-9ffc-ced21a209358
p.shannon authored on 04/04/2013 21:35:04
| ... | ... |
@@ -5,8 +5,9 @@ library(biomaRt) |
| 5 | 5 |
#------------------------------------------------------------------------------------------------------------------------ |
| 6 | 6 |
bindingDomainXrefSourceFile <- function() {"TFfile2b.tsv"}
|
| 7 | 7 |
printf <- function(...) print(noquote(sprintf(...))) |
| 8 |
+kDataDir <- "/shared/silo_researcher/Morgan_M/BioC/MotifDb/flyFactorSurvey" # on rhino |
|
| 8 | 9 |
#------------------------------------------------------------------------------------------------------------------------ |
| 9 |
-run = function (flyFactorSurveyRootDir) |
|
| 10 |
+run = function (flyFactorSurveyRootDir=kDataDir) |
|
| 10 | 11 |
{
|
| 11 | 12 |
filenames = getMatrixFilenames (flyFactorSurveyRootDir) |
| 12 | 13 |
|
| ... | ... |
@@ -31,7 +32,7 @@ run = function (flyFactorSurveyRootDir) |
| 31 | 32 |
serializedFile <- "flyFactorSurvey.RData" |
| 32 | 33 |
save (matrices, tbl.md, file=serializedFile) |
| 33 | 34 |
printf("saved %d matrices to %s", length(matrices), serializedFile)
|
| 34 |
- printf("copy %s to <packageRoot>/MotifDb/inst/extdata, rebuild package", serializedFile)
|
|
| 35 |
+ printf("now please copy %s to <packageRoot>/MotifDb/inst/extdata, and rebuild package", serializedFile)
|
|
| 35 | 36 |
|
| 36 | 37 |
} # run |
| 37 | 38 |
#------------------------------------------------------------------------------------------------------------------------ |