Update test_peaks-functions.R

rformassspectrometry · Nov 20, 2023 · 6781908 · 6781908
1 parent 52d4fcc
commit 6781908
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/tests/testthat/test_peaks-functions.R b/tests/testthat/test_peaks-functions.R
@@ -71,7 +71,7 @@ test_that(".peaks_bin works", {
     int <- c(0, 1, 2, 3, 1, 0, 0, 0, 0, 1, 3, 10, 6, 2, 1, 0, 1, 2, 0,
              0, 1, 5, 10, 5, 1)
     x <- cbind(mz = 1:length(int), intensity = int)
-    # x <- [, x[,"intensity"] != 0] ## this does not fix the test, bit confused by that.
+    # x_nozero <- [x[,"intensity"] != 0, ] ## this does not fix the test, bit confused by that.
 
     brks <- seq(min(x), max(x), by = 1L)
     brks <- MsCoreUtils:::.fix_breaks(brks, range(x))