R/zzz.R

In jtools: Analysis and Presentation of Social Scientific Data

# Pkg startup message
.onAttach <- function(libname, pkgname) {

  # Thanks to G. Grothendieck for this idea for giving a limited time
  # message after installation
  # https://stackoverflow.com/questions/40748744/r-package-with-code-that-only
  # -runs-once-per-installation

  # if (interactive()) {
  #   ctime <- file.info(find.package(pkgname))$ctime
  #   days <- as.integer(round(difftime(Sys.time(), ctime, units = "day"), 0))
  # } else {days <- 4}
  # if (days < 3 & !nzchar(system.file(package = "interactions"))) {
  #   msg <- wrap_str("The most recent jtools update (to 2.0.0) was a major
  #   update. Functions dealing with interactions have been moved to a new 
  #   package called 'interactions'. Please check out 
  #   http://www.jtools.jacob-long.com/news/ for
  #   details on what is new. This message will go away in ", 3 - days, " days.")
  #   packageStartupMessage(msg)
  # }
}
#' @importFrom utils packageVersion
.onLoad <- function(libname, pkgname) {
  pkgconfig::set_config("tibble::rownames" = NA)
  options("rlang_backtrace_on_error" = "branch")
}