update function

frahik · Dec 10, 2018 · 708f4c6 · 708f4c6
1 parent b326323
commit 708f4c6
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/detectCore.R b/R/detectCore.R
@@ -9,7 +9,7 @@
 NULL
 
 validate.parallelCores <-  function(parallelCores){
-  nCore <- detectCores() * .5
+  nCore <- detectCores()
   if (nCore < parallelCores) {message(paste0('[!] For safe analysis, we stablish only ', floor(nCore * .5), ' core(s) to do the analysis.'))}
   ifelse(nCore < parallelCores, return(floor(nCore * .5)), return(parallelCores))
 }