R/zzz.R

In ggpicrust2: Make 'PICRUSt2' Output Analysis and Visualization Easier

#' @importFrom grDevices col2rgb
#' @importFrom methods new
#' @importFrom stats as.formula model.matrix relevel
#' @importFrom utils head

.onLoad <- function(libname, pkgname) {
  op <- options()
  op.ggpicrust2 <- list(
    ggpicrust2.cache_enabled = TRUE,
    ggpicrust2.verbose = TRUE,
    ggpicrust2.max_retries = 3,
    ggpicrust2.timeout = 300
  )
  toset <- !(names(op.ggpicrust2) %in% names(op))
  if (any(toset)) options(op.ggpicrust2[toset])
  
  invisible()
}