From cde64ae0fa6b091829657c823cff818204b19dd2 Mon Sep 17 00:00:00 2001 From: Greg Werbin Date: Fri, 8 Jan 2016 07:49:42 -0500 Subject: [PATCH] Fully respect the --quiet option Only display the "Multithreaded BLAS..." message if the `--quiet` option is not set. --- RRO-src/files/OSX/Rprofile.site | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/RRO-src/files/OSX/Rprofile.site b/RRO-src/files/OSX/Rprofile.site index 11c5504a..f38b8c02 100644 --- a/RRO-src/files/OSX/Rprofile.site +++ b/RRO-src/files/OSX/Rprofile.site @@ -56,14 +56,14 @@ if(Sys.info()["sysname"] == "Darwin"){ hw.ncpu <- system('sysctl hw.ncpu', intern = TRUE) ncores <- sub("hw.ncpu: ", "", hw.ncpu) msg <- "Multithreaded BLAS/LAPACK libraries detected. Using %s cores for math algorithms." - message(sprintf(msg, ncores)) + if (!quiet) message(sprintf(msg, ncores)) invisible(NULL) }) } else if(load_if_installed("RevoUtilsMath")){ local({ ncores <- RevoUtilsMath::getMKLthreads() msg <- "Multithreaded BLAS/LAPACK libraries detected. Using %d cores for math algorithms." - message(sprintf(msg, ncores)) + if (!quiet) message(sprintf(msg, ncores)) invisible(NULL) }) }