Browse code

Fixed message on parallel execution.

Robert Castelo authored on 17/05/2021 08:28:00
Showing2 changed files

... ...
@@ -1,5 +1,5 @@
1 1
 Package: GSVA
2
-Version: 1.39.30
2
+Version: 1.39.31
3 3
 Title: Gene Set Variation Analysis for microarray and RNA-seq data
4 4
 Authors@R: c(person("Justin", "Guinney", role=c("aut", "cre"), email="justin.guinney@sagebase.org"),
5 5
              person("Robert", "Castelo", role="aut", email="robert.castelo@upf.edu"),
... ...
@@ -700,7 +700,7 @@ compute.geneset.es <- function(expr, gset.idx.list, sample.idxs, rnaseq=FALSE,
700 700
   ## more than 100 genes on more than 100 samples
701 701
   if (parallel.sz > 1 && length(sample.idxs > 100) && nrow(expr) > 100) {
702 702
     if (verbose)
703
-      cat(sprintf("Estimating ECDFs in parallel\n", parallel.sz))
703
+      cat(sprintf("Estimating ECDFs in parallel on %d cores\n", as.integer(parallel.sz)))
704 704
     iter <- function(Y, n_chunks=BiocParallel::multicoreWorkers()) {
705 705
       idx <- splitIndices(nrow(Y), min(nrow(Y), n_chunks))
706 706
       i <- 0L