cmp freestyle

Author: cpanse

DESCRIPTION

@@ -5,8 +5,7 @@ Version: 0.0.1
 Authors@R: c(person(given = "Christian", family = "Panse", email = "cp@fgcz.ethz.ch", role = c("aut", "cre"),
     comment = c(ORCID = "0000-0003-1975-3064")),
 	person(given = "Tobias", family = "Kockmann", email = "Tobias.Kockmann@fgcz.ethz.ch", role = "aut"))
-Depends: R (>= 4.0),
-	methods,
+Depends: R (>= 4.0)
 Imports: 
 Suggests:
 	protViz (>= 0.6),

tests/testthat/test-spectrum.R

@@ -8,7 +8,7 @@ library(rawR)
 	sum(c("scan", "scanType", "rtinseconds", "pepmass", "charge", "mZ", "intensity") %in% names(x))>6
 }
 
-test_that("check readSpectrum function.", {
+test_that("check readSpectrum function names.", {
 
   rawfile <- file.path(path.package(package = 'rawR'), 'extdata', 'sample.raw')
 
@@ -17,3 +17,15 @@ test_that("check readSpectrum function.", {
   lapply(S, function(x){expect_true(.is.peaklist(x))})
 
 })
+
+test_that("check readSpectrum 23.", {
+
+  rawfile <- file.path(path.package(package = 'rawR'), 'extdata', 'sample.raw')
+  S <- readSpectrum(rawfile, 23)[[1]]
+
+  DF <- read.table(file.path(path.package(package = 'rawR'), 'extdata', 'scan23_peakList.txt'), sep="\t", header=TRUE)
+
+  expect_true(sum(S$mZ %in% DF$m.z) >= 720)
+  expect_true(sum(S$intensity %in% DF$Intensity) >= 720)
+})
+