@@ -1,6 +1,8 @@

 CHANGES IN VERSION 2.15.1

 -------------------------

- o Fix type (see https://github.com/sneumann/mzR/pull/162)

+ o Fix typo (see https://github.com/sneumann/mzR/pull/162)

+ o New .hasSpectra private function (see

+   https://github.com/lgatto/MSnbase/issues/343)

 CHANGES IN VERSION 2.15.0

 -------------------------

@@ -40,3 +40,11 @@ setMethod("isolationWindow", "character",

     x <- lapply(x, base::unique)

     any(sapply(x, function(xx) nrow(xx) > 1))

 }

+

+

+.hasSpectra <- function(x) {

+    if (is.character(x) & file.exists(x))

+        x <- mzR::openMSfile(x)

+    stopifnot(inherits(x, "mzR"))

+    return(as.logical(length(x)))

+}