R/zzz.R

In wasquith-usgs/vertPipeFlow: Discharge from a Vertical Pipe

".onAttach" <-
function(lib, pkg) {
  MSG <- packageStartupMessage # renaming the function
  dsc <- packageDescription(pkg) # function will not be found without
  # loading the utils package in the Depends: section of the DESCRIPTION
  if(interactive() || getOption("verbose")) {
    MSG(sprintf("Package %s (%s) loaded.", pkg, dsc$Version))
  }
}