diff --git a/tests/testthat/test-utils-statmodel-server.R b/tests/testthat/test-utils-statmodel-server.R index b137774..f069bc4 100644 --- a/tests/testthat/test-utils-statmodel-server.R +++ b/tests/testthat/test-utils-statmodel-server.R @@ -287,7 +287,7 @@ test_that("extract_significant_proteins filters PTM data correctly", { loadpage_input <- list(BIO = "PTM") result <- extract_significant_proteins(data_comp, loadpage_input, 0.05) - expect_equal(nrow(result), 1) + expect_equal(nrow(result$ADJUSTED.Model), 1) }) test_that("extract_significant_proteins filters TMT data correctly", {