R/zzz.R

In sparsebnUtils: Utilities for Learning Sparse Bayesian Networks

#
#  zzz.R
#  sparsebnUtils
#
#  Created by Bryon Aragam (local) on 1/22/16.
#  Copyright (c) 2014-2017 Bryon Aragam. All rights reserved.
#

# Export everything in this package so the other packages can use all of the methods
# #' @exportPattern ^[^\\.] <--- DON'T USE THIS!

#' @importFrom grDevices dev.off n2mfrow
#' @importFrom graphics par plot title
#' @importFrom methods as
#' @importFrom utils capture.output

.onAttach <- function(libname, pkgname){
    ### Only sparsebn needs a package startup message
    # packageStartupMessage("NOTE: This package is currently in a development state and may be unstable.\n Please report any bugs at https://github.com/itsrainingdata/sparsebnUtils/issues.")
}

### Set global options for this packages: Shamelessly stolen from /devtools/R/zzz.R
.onLoad <- function(libname, pkgname) {
  opt <- options()

  opt.sparsebn <- list(
      sparsebn.graph = NULL,                              # graph package to use / NULL = no external package
      sparsebn.plotting = "igraph",                       # plotting mechanism to use
      sparsebn.zerothreshold = sqrt(.Machine$double.eps)  # threshold for numerical precision of zeroes
  )

  ### Only set the options which have not already been set (i.e. don't override defaults)
  toset <- !(names(opt.sparsebn) %in% names(opt)) # Which options have NOT been set already?
  if(any(toset)) options(opt.sparsebn[toset])     # Set the options which have not been set

  invisible()
}