From 2ae279eb606109cba2e833c0337d252ec082cf86 Mon Sep 17 00:00:00 2001
From: Elena Krismer <70535771+elena-krismer@users.noreply.github.com>
Date: Thu, 10 Oct 2024 19:04:23 +0200
Subject: [PATCH] fix syntax

---
 tests/testthat/test-auxiliary_functions.R | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/tests/testthat/test-auxiliary_functions.R b/tests/testthat/test-auxiliary_functions.R
index a72a7b92..555af369 100644
--- a/tests/testthat/test-auxiliary_functions.R
+++ b/tests/testthat/test-auxiliary_functions.R
@@ -25,12 +25,11 @@ if (Sys.getenv("TEST_PROTTI") == "true") {
     test_that("deprecated peptide_type works", {
       rlang::with_options(lifecycle_verbosity = "warning", {
         expect_warning(assigned_types <- data %>%
-          find_peptide(
-            protein_sequence = protein_sequence,
-            peptide_sequence = peptide
-          ) %>%
-          peptide_type(aa_before = aa_before, last_aa = last_aa))
-
+                         find_peptide(
+                           protein_sequence = protein_sequence,
+                           peptide_sequence = peptide
+                         ) %>%
+                         peptide_type(aa_before = aa_before, last_aa = last_aa))
       })
       expect_is(assigned_types, "data.frame")
       expect_equal(nrow(assigned_types), 3)
@@ -47,9 +46,10 @@ if (Sys.getenv("TEST_PROTTI") == "true") {
 
     test_that("find_peptide and assign_peptide_type work", {
       expect_is(assigned_types, "data.frame")
-      expect_equal(nrow(assigned_types), 6)
+      expect_equal(nrow(assigned_types), 3)
       expect_equal(ncol(assigned_types), 9)
       expect_equal(assigned_types$pep_type, c("fully-tryptic", "semi-tryptic", "non-tryptic"))
+    })
 
     test_that("deprecated sequence_coverage works", {
       rlang::with_options(lifecycle_verbosity = "warning", {