Browse code

bugfix (requiring changing all.equal(--) to all.equal(--, check.environment=FALSE)) in combineList()

kasperdanielhansen authored on 09/02/2021 09:35:19
Showing2 changed files

... ...
@@ -1,5 +1,5 @@
1 1
 Package: bsseq
2
-Version: 1.27.0
2
+Version: 1.27.1
3 3
 Encoding: UTF-8
4 4
 Title: Analyze, manage and store bisulfite sequencing data
5 5
 Description: A collection of tools for analyzing and visualizing bisulfite
... ...
@@ -111,7 +111,7 @@ combineList <- function(x, ..., BACKEND = NULL) {
111 111
     x_trans <- lapply(x, getBSseq, "trans")
112 112
     x_has_same_trans <- vapply(
113 113
         x_trans,
114
-        function(t) isTRUE(all.equal(t, x_trans[[1L]])),
114
+        function(t) isTRUE(all.equal(t, x_trans[[1L]], check.environment = FALSE)),
115 115
         logical(1L))
116 116
     stopifnot(isTRUE(all(x_has_same_trans)))
117 117
     x_parameters <- lapply(x, getBSseq, "parameters")