R/zzz.R

In spatialkernel: Non-Parametric Estimation of Spatial Segregation in a Multivariate Point Process

.noGenerics <- TRUE

.onLoad <- function(libname, pkgname) 
{
  chkernel()
}

.onAttach <- function(libname, pkgname)
{
    desfile <-  file.path(libname, pkgname, "DESCRIPTION",
                          fsep = .Platform$file.sep)
    verline <- readLines(desfile, n=2, ok=TRUE)[[2]]
    version <- gsub("Version: ", "", verline, ignore.case=TRUE)
    packageStartupMessage("\nThis is ", pkgname," ", version, "\n\n")
}