From c89c03dd0ac5ae0d8e0e4921a29b8f092435c050 Mon Sep 17 00:00:00 2001
From: Kohei Watanabe <watanabe.kohei@gmail.com>
Date: Sun, 7 Apr 2024 20:41:44 +0900
Subject: [PATCH] Suppress warnings

---
 R/proxy.R | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/R/proxy.R b/R/proxy.R
index eccef14..cf4e240 100644
--- a/R/proxy.R
+++ b/R/proxy.R
@@ -290,8 +290,9 @@ getThreads <- function() {
                  "omp" = as.integer(Sys.getenv("OMP_THREAD_LIMIT")),
                  "max" = cpp_get_max_thread())
     default <- unname(min(default, na.rm = TRUE))
-
+    suppressWarnings({
     value <- as.integer(getOption("proxyC.threads", default))
+    })
     if (length(value) != 1 || is.na(value)) {
         stop("proxyC.threads must be an integer")
     }