Browse code

made combineList faster by fixing a typo

git-svn-id: file:///home/git/hedgehog.fhcrc.org/bioconductor/trunk/madman/Rpacks/bsseq@86674 bc3139a8-67e5-0310-9ffc-ced21a209358

Kasper D. Hansen authored on 21/02/2014 14:46:59
Showing 3 changed files

... ...
@@ -1,5 +1,5 @@
1 1
 Package: bsseq
2
-Version: 0.11.4
2
+Version: 0.11.5
3 3
 Title: Analyze, manage and store bisulfite sequencing data
4 4
 Description: Tools for analyzing and visualizing bisulfite sequencing data
5 5
 Authors@R: c(person(c("Kasper", "Daniel"), "Hansen", role = c("aut", "cre"),
... ...
@@ -72,7 +72,7 @@ combineList <- function(x, ...) {
72 72
     if(!all(sameTrans))
73 73
         stop("all elements of '...' in combineList needs to have the same trans")
74 74
     sameGr <- sapply(x[-1], function(xx) {
75
-        identical(trans, getBSseq(xx, "gr"))
75
+        identical(gr, getBSseq(xx, "gr"))
76 76
     })
77 77
     if(all(sameGr)) {
78 78
         M <- do.call(cbind, lapply(x, function(xx) getBSseq(xx, "M")))
... ...
@@ -15,7 +15,12 @@
15 15
     <jroux@uchicago.edu>: it would use the Meth values instead of Cov
16 16
     for the final object's Cov.  However, this will result in the return
17 17
     object having a methylation of 100 percent across all loci, so
18
-    hopefully users will have seen this for themselves. 
18
+    hopefully users will have seen this for themselves.
19
+    \item Fixed a bug in combineList which made combineList use "slow"
20
+    code even in a special case where a faster shortcut was possible.
21
+    This bug fix does not change the output of the function under any
22
+    input, it only makes it faster.  Reported by Julien Roux
23
+    <jroux@uchicago.edu>.
19 24
   }
20 25
 }
21 26