call=T in warning()

zhengxwen · Feb 12, 2024 · 346c5d9 · 346c5d9
1 parent 19af345
commit 346c5d9
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/LD.R b/R/LD.R
@@ -120,7 +120,7 @@ snpgdsLDpruning <- function(gdsobj, sample.id=NULL, snp.id=NULL,
     if (num.thread > 1L)
     {
         warning("The current version of 'snpgdsLDpruning()' ",
-            "does not support multi-threading.", immediate.=TRUE)
+            "does not support multi-threading.", call.=FALSE, immediate.=TRUE)
     }
     stopifnot(is.logical(verbose), length(verbose)==1L)