R/0_onAttach.R

Defines functions .onAttach .onLoad

.onLoad <- function(libname, pkgname) {
  rlang::run_on_load()
}

rlang::on_load(rlang::local_use_cli(inline = TRUE))

.onAttach <- function(libname, pkgname) {
  version <- utils::packageDescription(pkgname, fields = "Version")

  if (interactive()) {
    website <- "Website: {.url https://david-barnett.github.io/microViz}"
  } else {
    website <- "Website: https://david-barnett.github.io/microViz"
  }

  rlang::inform(
    class = "packageStartupMessage",
    message = c(
      paste("{.strong", pkgname, "version", version, "- Copyright (C) 2021-2025 David Barnett}"),
      "!" = website,
      "v" = 'Useful? \tFor citation details, run: {.code citation("microViz")}',
      "x" = "Silence? {.code suppressPackageStartupMessages(library(microViz))}"
    )
  )
}
david-barnett/microViz documentation built on April 17, 2025, 4:25 a.m.