R/aaa.R

Defines functions .onLoad

#' @import checkmate
#' @import data.table
#' @import methods
#' @import R6
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
  getOption("DTSgFunbyApproach"     , options(DTSgFunbyApproach      = "base"    )) # nolint
  getOption("DTSgNA.status"         , options(DTSgNA.status          = "explicit")) # nolint
}

Try the DTSg package in your browser

Any scripts or data that you put into this service are public.

DTSg documentation built on Sept. 28, 2023, 1:06 a.m.