Merge branch 'improve_assign_peptide_type_243' of https://github.com/…

…jpquast/protti into improve_assign_peptide_type_243
jpquast · Aug 27, 2024 · 8ef53e3 · 8ef53e3
2 parents 86a0756 + e242aee
commit 8ef53e3
Showing 1 changed file with 11 additions and 10 deletions.
diff --git 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)
-
 }