Skip to content

Latest commit

 

History

History
87 lines (67 loc) · 2.79 KB

README.md

File metadata and controls

87 lines (67 loc) · 2.79 KB
Raw

RcppArmadilloOpenMPEx: Thread Throttling Example

Synopsis

CRAN, for better or worse, insists on tests and example using only two cores (as they need to test thousands of packages, they do so concurrently and need to limit the load of these tests and examples running in parallel).

This repo contains a simple example package which, when tested as CRAN does, _e.g., via

$ _R_CHECK_TIMINGS_=2 \
  _R_CHECK_EXAMPLE_TIMING_CPU_TO_ELAPSED_THRESHOLD_=2 \
  R CMD check --as-cran --no-manual RcppArmadilloOpenMPEx_0.0.1.tar.gz

displays the dreaded warning from the one included example (that we borrowed from the Armadillo documentation):

* checking examples ... NOTE
Examples with CPU time > 2 times elapsed time
                user system elapsed ratio
openmp_example 3.323  0.033   0.629 5.335
* checking for unstated dependencies in ‘tests’ ... OK

You can verify this on any system with both OpenMP installed, and more than two cores. This may as always be easiest on a Linux system, and for example the r2u container rocker/r2u will works fine, and was used here.

Now, if we also set the environment variable SHOWME to yes, then the example in this package will throttle the count down.

So running

$ SHOWME=yes \
  _R_CHECK_TIMINGS_=2 \
  _R_CHECK_EXAMPLE_TIMING_CPU_TO_ELAPSED_THRESHOLD_=2 \
  R CMD check --as-cran --no-manual RcppArmadilloOpenMPEx_0.0.1.tar.gz

results in a run without a warning as desired:

* checking examples ... OK
* checking for unstated dependencies in ‘tests’ ... OK

Starting with release 0.12.6.6.0, more convenient setters are available in RcppArmadillo itself. An example is provided by its fastLm example. The underlying function (which could be copied) is a calling omp_set_num_threads():

//' Set Maximum Number of Threads
//'
//' @param n Number of threads to be set
// [[Rcpp::export]]
void set_number_of_omp_threads(int n) {
#ifdef _OPENMP
    omp_set_num_threads(n);
#else
    (void)(n);                  // prevent unused variable warning
#endif
}

In RcppArmadillo, we combine this with a package-local 'cacheing' of count of threads set at package load to provide a pair of functions to set and then reset the count -- see the fastLm example.

Author

Dirk Eddelbuettel

License

GPL (>= 2)