verbose in hlaPredMerge()

zhengxwen · Mar 13, 2024 · bd0d457 · bd0d457
1 parent 788bace
commit bd0d457
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/R/HIBAG.R b/R/HIBAG.R
@@ -868,6 +868,8 @@ hlaPredMerge <- function(..., weight=NULL, equivalence=NULL, use.matching=TRUE,
     stopifnot(is.character(max.resolution), length(max.resolution)==1L)
     use_resolution <- !identical(max.resolution, "") ||
         !identical(rm.suffix, FALSE)
+    if (verbose && !identical(max.resolution, ""))
+        cat("    Resolution: ", max.resolution, "\n", sep="")
 
     # check locus and sample.id
     samp.id <- pdlist[[1L]]$value$sample.id