R/kt_startup.R

Defines functions .onLoad .onAttach

.onAttach <- function(...) {
  ver <- utils::packageVersion("kayatool")
  msg <- paste0("\nThis is kayatool version ", ver, "\n")
  packageStartupMessage(msg)
}

.onLoad <- function(libname, pkgname) {
  op <- options()
  op.kayatool <- list(
    kayatool.rstudio = FALSE
  )
  set_ops <- !(names(op.kayatool) %in% names(op))
  if (any(set_ops)) options(op.kayatool[set_ops])
  invisible()
}
gilligan-ees-3310/kayatool documentation built on Sept. 12, 2022, 11:11 p.m.