Browse code

added explicit return from plotMotifs

paul-shannon authored on 17/08/2018 16:54:08
Showing 2 changed files

... ...
@@ -1,12 +1,12 @@
1 1
 Package: MotifDb
2 2
 Type: Package
3 3
 Title: An Annotated Collection of Protein-DNA Binding Sequence Motifs
4
-Version: 1.23.9
5
-Date: 2018-05-23
4
+Version: 1.23.11
5
+Date: 2018-06-17
6 6
 Author: Paul Shannon, Matt Richards
7 7
 Maintainer: Paul Shannon <pshannon@systemsbiology.org>
8
-Depends: R (>= 2.15.0), methods, BiocGenerics, S4Vectors, IRanges, Biostrings, motifStack
9
-Suggests: RUnit, seqLogo, MotIV
8
+Depends: R (>= 2.15.0), methods, BiocGenerics, S4Vectors, IRanges, Biostrings
9
+Suggests: RUnit
10 10
 Imports: rtracklayer, splitstackshape
11 11
 Description: More than 9900 annotated position frequency matrices from 14 public sources, for multiple organisms.
12 12
 License: Artistic-2.0 | file LICENSE
... ...
@@ -6,6 +6,7 @@ plotMotifs <- function(motifs)
6 6
   if(length(motifs) == 1){
7 7
     pcm <- new("pcm", mat=motifs[[1]], name=names(motifs))
8 8
     plot(pcm)
9
+    return()
9 10
     }
10 11
 
11 12
   motifStack(lapply(names(motifs), function(mName) new("pfm", motifs[[mName]], name=mName)))