@@ -1,8 +1,8 @@

 Package: MotifDb

 Type: Package

 Title: An Annotated Collection of Protein-DNA Binding Sequence Motifs

-Version: 1.1.5

-Date: 2012-11-01

+Version: 1.1.6

+Date: 2012-11-04

 Author: Paul Shannon

 Maintainer: Paul Shannon <pshannon@fhcrc.org>

 Depends: R (>= 2.15.0), methods, IRanges, Biostrings

@@ -197,13 +197,12 @@ setMethod ('export',  signature=c(object='MotifList',  con='missing',

 setMethod('show', 'MotifList',

     function(object) {

-        

       msg = sprintf ('MotifDb object of length %d', length (object))

       cat (msg, '\n', sep='')

       if (length (object) == 0)

         return ()

-      cat ('| Created from downloaded public sources: 2012-Jul6', '\n', sep='')

+      cat ('| Created from downloaded public sources: 2012-Nov-01', '\n', sep='')

       tbl.dataSource = as.data.frame (table (values (object)$dataSource))

       tbl.org = as.data.frame (table (values (object)$organism))

@@ -7,17 +7,15 @@ MotifDb <- NULL

   if(loadAllSources) {

     data.path = system.file('extdata', package='MotifDb')

     data.files = dir(data.path, full.names=TRUE)

-  

-    if(length(data.files) > 0)   

-      for(data.file in data.files) {

-         # define these to keep 'check' happy.  they are loaded by 'load'

-        tbl.md = NA; matrices = NA;  

-        variables = load(data.file)

-        mdb = append(mdb, MotifList(matrices, tbl.md))

-        if(!quiet) 

-          message(noquote(sprintf('added %s(%d) matrices, length now: %d',

-                   basename(data.file), length(matrices), length(mdb))))

-      } # for data.file

+    for(data.file in data.files) {

+       # define these to keep 'check' happy.  they are loaded by 'load'

+      tbl.md = NA; matrices = NA;  

+      variables = load(data.file)

+      mdb = append(mdb, MotifList(matrices, tbl.md))

+      if(!quiet) 

+        message(noquote(sprintf('added %s(%d) matrices, length now: %d',

+                 basename(data.file), length(matrices), length(mdb))))

+    } # for data.file

     if(!quiet) {

       print(table(values(mdb)$dataSource))