Use cpp_get_max_thread()

quanteda · Apr 21, 2023 · aef22b2 · aef22b2
1 parent 3d57717
commit aef22b2
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/quanteda_options.R b/R/quanteda_options.R
@@ -157,7 +157,7 @@ set_option_value <- function(key, value) {
 get_threads <- function() {
     c("tbb" = as.integer(Sys.getenv("RCPP_PARALLEL_NUM_THREADS")),
       "omp" = as.integer(Sys.getenv("OMP_THREAD_LIMIT")),
-      "max" = RcppParallel::defaultNumThreads())
+      "max" = cpp_get_max_thread())
 }
 
 # returns default options