a redefinition of library() to be quieter

newlib.R

# a replacement for library() that does not print tons of messages
# as each package is loaded.  place in .Rprofile

libstats = function(inisess, newsess) {
 inibase = inisess$basePkgs  # unchanging?
 inioth = names(inisess$otherPkgs)
 newbase = newsess$basePkgs
 newoth = names(newsess$otherPkgs)
 iniatt = length(unique(c(inibase,inioth)))
 newatt = length(unique(c(newbase,newoth)))
 addatt = newatt-iniatt
 inilo = names(inisess$loadedOnly)
 newlo = names(newsess$loadedOnly)
 addlo = length(setdiff(newlo, inilo))
 c(addatt=addatt, addlo=addlo)
}



library = function(...) {
libstats = function(inisess, newsess) {
 inibase = inisess$basePkgs  # unchanging?
 inioth = names(inisess$otherPkgs)
 newbase = newsess$basePkgs
 newoth = names(newsess$otherPkgs)
 iniatt = length(unique(c(inibase,inioth)))
 newatt = length(unique(c(newbase,newoth)))
 addatt = newatt-iniatt
 inilo = names(inisess$loadedOnly)
 newlo = names(newsess$loadedOnly)
 addlo = length(setdiff(newlo, inilo))
 c(addatt=addatt, addlo=addlo)
}


 inisess = utils::sessionInfo()
 suppressPackageStartupMessages({
  libdata = base::library(...)
  newsess = utils::sessionInfo()
  lstats = libstats(inisess=inisess, newsess=newsess)
  message(sprintf("%d/%d packages newly attached/loaded, see sessionInfo() for details.", lstats["addatt"],
lstats["addlo"]))
  invisible(NULL)
 })
}