Browse code

Small tweak to pass tests on Windows

Peter Hickey authored on 24/10/2018 20:21:55
Showing2 changed files

... ...
@@ -1,5 +1,5 @@
1 1
 Package: bsseq
2
-Version: 1.17.6
2
+Version: 1.17.7
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
... ...
@@ -169,8 +169,8 @@ BSmooth <- function(BSseq,
169 169
             h5_path <- path(assay(BSseq, withDimnames = FALSE))
170 170
             if (any(c("coef", "se.coef") %in% rhdf5::h5ls(h5_path)[, "name"])) {
171 171
                 # TODO: Better error message; what should be done in this case?
172
-                stop(wmsg("The HDF5 file '", h5_path, "' already contains a ",
173
-                          "dataset named 'coef' or 'se.coef'."))
172
+                stop("The HDF5 file '", h5_path, "' already contains a ",
173
+                          "dataset named 'coef' or 'se.coef'.")
174 174
             }
175 175
         } else {
176 176
             h5_path <- NULL