#  First.R
#
#  $Revision: 1.31 $ $Date: 2011/07/21 06:14:59 $
#

.onLoad <- function(...) reset.spatstat.options()

.onAttach <- function(libname, pkgname) {
  v <- read.dcf(file=system.file("DESCRIPTION", package=pkgname),
                fields="Version")
  msg <- paste("spatstat", v,
               "\nType", sQuote("help(spatstat)"),
               "for an overview of spatstat",
               "\n    ", sQuote("latest.news()"),
               "for news on latest version",
               "\n    ", sQuote("licence.polygons()"),
               "for licence information on polygon calculations")
  packageStartupMessage(msg)
  invisible(NULL)
}