R/zzz.R

In tsmp: Time Series with Matrix Profile

tsmp_default_options <- list(
  tsmp.verbose = 2,
  tsmp.exclusion_zone = 1 / 2
)

.onLoad <- function(libname, pkgname) {
  op <- options()
  toset <- !(names(tsmp_default_options) %in% names(op))
  if (any(toset)) {
    options(tsmp_default_options[toset])
  }

  invisible()
}

.onAttach <- function(libname, pkgname) {
  if (!identical(Sys.getenv("NOT_CRAN"), "true")) {
    Sys.setenv(RCPP_PARALLEL_BACKEND = "tinythread")
  }

  packageStartupMessage("Welcome to Matrix Profile")
}