R/zzz.R

Defines functions .onAttach

#' @importFrom utils citation
.onAttach <- function(...) {
  if (!interactive()) return()

  package_name = "cifti"
  x = citation(package_name)
  x = format(x, "text")
  x = paste(x, collapse = "\n\n")
  ack <- c(
    paste0("Please cite the ", package_name,
           " package using:\n"),
    x)

  packageStartupMessage(paste(strwrap(ack), collapse = "\n"))
}
neuroconductor-devel/cifti documentation built on May 6, 2021, 1:43 p.m.