From d6389b98be5b231f8c7b4fa11d2c3995c3559b9f Mon Sep 17 00:00:00 2001
From: gnvalbuena <gnvalbuena@users.noreply.github.com>
Date: Wed, 26 Jun 2024 16:58:00 +0100
Subject: [PATCH] Update stemcellindex.R

Remove progress bar
---
 R/stemcellindex.R | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/R/stemcellindex.R b/R/stemcellindex.R
index 0c893ab..14fcaba 100644
--- a/R/stemcellindex.R
+++ b/R/stemcellindex.R
@@ -35,8 +35,7 @@ stemcellindex <- function(gextable, organism, geneid, kcdf = "Gaussian"){
                            maxDiff=TRUE)
 
   scorestable <- as.data.frame(t(GSVA::gsva(paramObject,
-                                            verbose = FALSE,
-                                            BPPARAM = BiocParallel::SerialParam(progressbar = TRUE))))
+                                            verbose = FALSE)))
 
   scorestable$stemcellindex <- scorestable$RSC - scorestable$CBC