personal version of library that reduces information on attachment events

gistfile1.txt

libstats = function(inisess, newsess) {
 inibase = inisess$basePkgs  
 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(...) {
 inisess = sessionInfo()
 suppressPackageStartupMessages({
  libdata = base::library(...)
  newsess = 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)
 })
}