From e242aee81f2a55dda8b65d2cbaa1aa8a1edceeb0 Mon Sep 17 00:00:00 2001
From: elena-krismer <elena-krismer@users.noreply.github.com>
Date: Mon, 26 Aug 2024 20:52:59 +0000
Subject: [PATCH] Style code (GHA)

---
 R/assign_peptide_type.R | 21 +++++++++++----------
 1 file changed, 11 insertions(+), 10 deletions(-)

diff --git a/R/assign_peptide_type.R b/R/assign_peptide_type.R
index 1e07db44..f34633a6 100644
--- a/R/assign_peptide_type.R
+++ b/R/assign_peptide_type.R
@@ -92,15 +92,16 @@ assign_peptide_type <- function(data,
     )) %>%
     dplyr::select(-N_term_tryp, -C_term_tryp, -missing_methionine)
 
-    result <- data %>%
-      dplyr::left_join(peptide_data %>%
-      dplyr::select({{ aa_before }}, {{ last_aa }}, {{ aa_after }}, {{ protein_id }}, pep_type),
-                       by = c(
-                         rlang::as_name(rlang::enquo(aa_before)),
-                         rlang::as_name(rlang::enquo(last_aa)),
-                         rlang::as_name(rlang::enquo(aa_after)),
-                         rlang::as_name(rlang::enquo(protein_id))
-                       ))
+  result <- data %>%
+    dplyr::left_join(
+      peptide_data %>%
+        dplyr::select({{ aa_before }}, {{ last_aa }}, {{ aa_after }}, {{ protein_id }}, pep_type),
+      by = c(
+        rlang::as_name(rlang::enquo(aa_before)),
+        rlang::as_name(rlang::enquo(last_aa)),
+        rlang::as_name(rlang::enquo(aa_after)),
+        rlang::as_name(rlang::enquo(protein_id))
+      )
+    )
   return(result)
-
 }