minor fix

danro9685 · Sep 20, 2024 · b48be64 · b48be64
1 parent fdc4377
commit b48be64
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/R/mutational.signatures.discovery.R b/R/mutational.signatures.discovery.R
@@ -177,6 +177,8 @@ signaturesDecomposition <- function( x, K, background_signature = NULL,
             quietly = TRUE, verbose = FALSE))
         res_clusterEvalQ <- clusterEvalQ(parallel, library("nnls", warn.conflicts = FALSE,
             quietly = TRUE, verbose = FALSE))
+        res_clusterEvalQ <- clusterEvalQ(parallel, library("RhpcBLASctl", warn.conflicts = FALSE,
+            quietly = TRUE, verbose = FALSE))
         clusterExport(parallel, varlist = c(".fit_nmf", ".fit_seed", ".fit_regularized",
             ".fit_objective"), envir = environment())
         clusterExport(parallel, varlist = c("x", "background_signature",
@@ -532,6 +534,8 @@ signaturesCV <- function( x, beta, normalize_counts = FALSE, cross_validation_en
             quietly = TRUE, verbose = FALSE))
         res_clusterEvalQ <- clusterEvalQ(parallel, library("nnls", warn.conflicts = FALSE,
             quietly = TRUE, verbose = FALSE))
+        res_clusterEvalQ <- clusterEvalQ(parallel, library("RhpcBLASctl", warn.conflicts = FALSE,
+            quietly = TRUE, verbose = FALSE))
         clusterExport(parallel, varlist = c(".fit_model", "signaturesAssignment", "verbose", 
             "cross_validation_repetitions", "cross_validation_entries"), envir = environment())
         clusterExport(parallel, varlist = c("cross_validation_iterations", "valid_entries", "num_entries",