R/zzz.R

In epinetics: EpiNetics

.packageName <- 'epinetics'

.First.lib <-
 function (lib.loc, pkg){
    library.dynam('epinetics', pkg, lib.loc)
    
    require(sna);
    require(degreenet);
    require(network);
}

.Last.lib <-
 function (lib.loc, pkg){
  library.dynam.unload('epinetics', pkg, lib.loc)
    
  pos <- match ("package::sna", search())
  if (!is.na(pos)){
    detach (pos = pos)
  }
  pos <- match ("package::degreenet", search())
  if (!is.na(pos)){
    detach (pos = pos)
  }
  pos <- match ("package::network", search())
  if (!is.na(pos)){
    detach (pos = pos)
  }
    
}