Browse code

Fixed jaspar format spacing and updated DESCRIPTION

Matthew Richards authored on 18/09/2017 18:31:33
Showing 4 changed files

... ...
@@ -1,14 +1,14 @@
1 1
 Package: MotifDb
2 2
 Type: Package
3 3
 Title: An Annotated Collection of Protein-DNA Binding Sequence Motifs
4
-Version: 1.19.7
5
-Date: 2017-09-12
4
+Version: 1.19.8
5
+Date: 2017-09-18
6 6
 Author: Paul Shannon, Matt Richards
7 7
 Maintainer: Paul Shannon <pshannon@systemsbiology.org>
8 8
 Depends: R (>= 2.15.0), methods, BiocGenerics, S4Vectors, IRanges, Biostrings
9 9
 Suggests: RUnit, seqLogo, MotIV
10
-Imports: rtracklayer
11
-Description: More than 2000 annotated position frequency matrices from nine public sources, for multiple organisms.
10
+Imports: rtracklayer, splitstackshape
11
+Description: More than 8000 annotated position frequency matrices from 13 public sources, for multiple organisms.
12 12
 License: Artistic-2.0 | file LICENSE
13 13
 License_is_FOSS: no
14 14
 License_restricts_use: yes
... ...
@@ -335,7 +335,10 @@ matrixToJasparText <- function (matrices)
335 335
       s[index] <- ""
336 336
       index <- index + 1
337 337
 
338
-    } # for name
338
+  } # for name
339
+
340
+  # Remove the last blank line
341
+  s <- s[-length(s)]
339 342
 
340 343
   invisible (s)
341 344
 
... ...
@@ -2,7 +2,9 @@ library (MotifDb)
2 2
 library (RUnit)
3 3
 library (MotIV)
4 4
 library (seqLogo)
5
-#------------------------------------------------------------------------------------------------------------------------
5
+#----------------------------------------------------------------------------------------------------
6
+printf <- function(...) print(noquote(sprintf(...)))
7
+#----------------------------------------------------------------------------------------------------
6 8
 runTests = function ()
7 9
 {
8 10
   test.emptyCtor ()
... ...
@@ -121,7 +123,9 @@ test.noNAorganisms = function ()
121 123
 {
122 124
   print ('--- test.noNAorganisms')
123 125
   #checkEquals (which (is.na (mcols(MotifDb)$organism)), integer (0))
124
-  checkEquals(sum(is.na (mcols(MotifDb)$organism)), 1050)
126
+
127
+  # There's a fair number of NA organisms, mostly due to including the homer DB
128
+  checkEquals(sum(is.na (mcols(MotifDb)$organism)), 366)
125 129
 
126 130
 } # test.noNAorganisms
127 131
 #------------------------------------------------------------------------------------------------------------------------
128 132
deleted file mode 100644
... ...
@@ -1 +0,0 @@
1
-hi