From 90b48a36478ae675a28a0670d44c97e9256e7b94 Mon Sep 17 00:00:00 2001
From: Abhishek Sarkar <asarkar@vesaliustx.com>
Date: Tue, 26 Mar 2024 16:30:21 -0500
Subject: [PATCH] Report how many threads are being used in fit_poisson_nmf

---
 R/fit_poisson_nmf.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/fit_poisson_nmf.R b/R/fit_poisson_nmf.R
index 812a36a..9b283da 100644
--- a/R/fit_poisson_nmf.R
+++ b/R/fit_poisson_nmf.R
@@ -404,7 +404,7 @@ fit_poisson_nmf <- function (X, k, fit0, numiter = 100,
       control$extrapolate)
     stop("control$extrapolate cannot be TRUE when all factors or loadings ",
          "are fixed")
-  control$nc <- initialize.multithreading(control$nc)
+  control$nc <- initialize.multithreading(control$nc,verbose != "none")
   
   # Only one of "k" and "fit0" should be provided. If argument "k" is
   # given, generate a random initialization of the factors and