Browse code

run function now saves serialized file to demo directory

git-svn-id: https://hedgehog.fhcrc.org/bioconductor/trunk/madman/Rpacks/MotifDb@86079 bc3139a8-67e5-0310-9ffc-ced21a209358

p.shannon authored on 04/02/2014 20:58:44
Showing 1 changed files

... ...
@@ -13,7 +13,9 @@ run = function (dataDir)
13 13
   matrices <- normalizeMatrices (matrices)
14 14
   matrices <- renameMatrices (matrices, tbl.md)
15 15
 
16
-  serializedFile <- "demo.RData"
16
+  serializedFile <- file.path(getwd(), dataDir, "demo.RData")
17
+  printf("writing %s to %s", "demo.RData", dataDir)
18
+
17 19
   save (matrices, tbl.md, file=serializedFile)
18 20
   printf("saved %d matrices to %s", length(matrices), serializedFile)
19 21
   printf("next step:  copy %s to <packageRoot>/MotifDb/inst/extdata, rebuild package", serializedFile)