fix: limit 'data.table' cores to 2 on CRAN

gisler · Sep 27, 2023 · 644b916 · 644b916
1 parent 744c3d6
commit 644b916
Show file tree

Hide file tree

Showing 3 changed files with 9 additions and 2 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -2,7 +2,7 @@ Package: DTSg
 Type: Package
 Title: A Class for Working with Time Series Data Based on 'data.table' and 'R6'
     with Largely Optional Reference Semantics
-Version: 1.1.2
+Version: 1.1.3
 Authors@R: person("Gerold", "Hepp", email = "gisler@hepp.cc", role = c("aut", "cre"))
 Description: Basic time series functionalities such as listing of missing
     values, application of arbitrary aggregation as well as rolling (asymmetric)

diff --git a/NEWS.md b/NEWS.md
@@ -1,4 +1,4 @@
-# DTSg v1.1.2
+# DTSg v1.1.3
 
 * Cease use of legacy time zone symlinks in tests.
 * Bumped minimum tested R version from 4.0.2 to 4.2.3 using the corresponding Posit Public Package Manager snapshot.

diff --git a/R/aaa.R b/R/aaa.R
@@ -5,6 +5,13 @@
 NULL
 
 .onLoad <- function(libname, pkgname) {
+  suppressWarnings(onCRAN <- isTRUE(as.logical(as.numeric(
+    Sys.getenv("_R_CHECK_EXAMPLE_TIMING_CPU_TO_ELAPSED_THRESHOLD_")
+  ))))
+  if(onCRAN) {
+    setDTthreads(2L)
+  }
+
   getOption("DTSgClone"             , options(DTSgClone              = TRUE      )) # nolint
   getOption("DTSgDeprecatedWarnings", options(DTSgDeprecatedWarnings = TRUE      )) # nolint
   getOption("DTSgFast"              , options(DTSgFast               = FALSE     )) # nolint