tweak verbose in snpgdsLDpruning

zhengxwen · Mar 26, 2024 · 36d7f07 · 36d7f07
1 parent fbf14aa
commit 36d7f07
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/R/LD.R b/R/LD.R
@@ -193,6 +193,7 @@ snpgdsLDpruning <- function(gdsobj, sample.id=NULL, snp.id=NULL,
             } else {
                 .Call(gnrSetSeqSpace, gdsobj, samp.flag, flag)
             }
+            if (verbose) cat(sprintf("Chrom %s: ", ch))
 
             # call LD prune for this chromosome
             startidx <- switch(start.pos,
@@ -214,10 +215,10 @@ snpgdsLDpruning <- function(gdsobj, sample.id=NULL, snp.id=NULL,
             if (verbose)
             {
                 ntmp <- sum(rv); ntot <- sum(chr == ch)
-                cat(sprintf("Chromosome %s: %0.2f%%, %s / %s\n",
-                    as.character(ch), 100*ntmp/ntot,
+                cat(sprintf("    %0.2f%%, %s / %s (%s)\n", 100*ntmp/ntot,
                     prettyNum(ntmp, ",", scientific=FALSE),
-                    prettyNum(ntot, ",", scientific=FALSE)))
+                    prettyNum(ntot, ",", scientific=FALSE),
+                    date()))
             }
 
             # autosave