fix readSCP leftover

rformassspectrometry · Mar 8, 2024 · 3fc616f · 3fc616f
1 parent 09fdcb5
commit 3fc616f
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/tests/testthat/test_readFeatures.R b/tests/testthat/test_readFeatures.R
@@ -97,10 +97,10 @@ test_that("readQFeatures: correct use", {
                      c("File1" = 10L))
     #####################################
     ## Test remove empty columns
-    qf <- readSCP(x, colann,
-                  batchCol = "file",
-                  channelCol = "Channel",
-                  removeEmptyCols = TRUE)
+    qf <- readQFeatures(x, colann,
+                        batchCol = "file",
+                        channelCol = "Channel",
+                        removeEmptyCols = TRUE)
     expect_identical(sort(names(qf)), sort(unique(x$file)))
     expect_true(all(dims(qf)[2, ] == rep(10, 3)))
     expect_true(sum(dims(qf)[1, ]) == nrow(x))