fix: set number of threads when parallelising rsimilarity

49fbef84 · de Lavenne Alban · 42e0b345 · 49fbef84
Commit 49fbef84 authored 1 month ago by de Lavenne Alban
Hide whitespace changes
Inline Side-by-side

Showing

with 2 additions and 5 deletions
+2 -5
--- a/R/rsimilarity.R
+++ b/R/rsimilarity.R
@@ -31,11 +31,8 @@ rsimilarity <- function(Rn, FUN="invRMSE", parallel=FALSE, cores=NULL){
 	if(ncol(Rn) < 2) stop("Rn should have at least two columns")
 	# Parallelisation
-	if(parallel & (missing(cores)|is.null(cores))){
+	if(parallel & (missing(cores)|is.null(cores))) cores <- parallel::detectCores()
-		cores <- parallel::detectCores()
+	if(!parallel)	cores <- 1
-	}else{
-		cores <- 1
-	}
 	# Initialise msim
 	n <- ncol(Rn)