R/zzz.R

In mmds: Mixture Model Distance Sampling (mmds)

.onAttach<-function(library,pkgname)
{
  # this now conforms with new R conventions
  # uses packageStartupMessage which can then be
  # surpressed
  print.mmds.version()
}

# taken from mgcv
print.mmds.version <- function(){ 
  library(help=mmds)$info[[1]] -> linfo

  version <- linfo[pmatch("Version",linfo)]
  built <- linfo[pmatch("Built",linfo)]

  um <- strsplit(version," ")[[1]]
  version <- um[nchar(um)>0][2]

  um <- strsplit(built,"R")[[1]]
  built <- um[nchar(um)>0][2]

  hello <- paste("This is mmds ",version,"\nBuilt: R",built,sep="")
  packageStartupMessage(hello)
}