update mummer_alignment to print message when error

nvelden · Dec 20, 2024 · 91662fa · 91662fa
1 parent 51f22bd
commit 91662fa
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/R/cluster_blast.R b/R/cluster_blast.R
@@ -68,7 +68,6 @@ get_protein_combinations <- function(data, cluster_pair, rowIDs = NULL) {
 #' patterns <- c("ACDEFGHIKLMNPQRSTVWY", "ACDGFHIKLMNPQRSTVWY")
 #' subjects <- c("ACDEFGHIKLMNPQRSTVWY", "TCDGFHIKLMNPQRSTVWY")
 #' result <- compute_identity(patterns, subjects)
-#' print(result)
 #'
 #' @noRd
 compute_identity <- function(patterns, subjects) {

diff --git a/R/mummer_alignment.R b/R/mummer_alignment.R
@@ -173,7 +173,8 @@ mummer_alignment <- function(
       return(coords)
 
     }, error = function(e) {
-      cat(sprintf("Error in aligning %s vs %s: %s\n", pair[1], pair[2], e$message))
+      warning(sprintf("Error in aligning %s vs %s: %s", pair[1], pair[2], e$message))
+      return(NULL)
     })
   })