From 3fc616ff34f6336d0a03a76403359f2b34730e3a Mon Sep 17 00:00:00 2001
From: Laurent Gatto <laurent.gatto@uclouvain.be>
Date: Fri, 8 Mar 2024 19:05:13 +0100
Subject: [PATCH] fix readSCP leftover

---
 tests/testthat/test_readFeatures.R | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/tests/testthat/test_readFeatures.R b/tests/testthat/test_readFeatures.R
index 5e3fa2d2..ec9a510d 100644
--- 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))