R/zzz.R

Defines functions .onUnload .onAttach .onLoad

.onLoad <- function(libname, pkgname) {
  ## nothing to do here for the moment
}

.onAttach <- function(libname, pkgname) {
  packageStartupMessage("Loading MicroArray Chromosome Analysis Tool...\n",
                        "Loading required packages...\n")
  
  if (!("stjudem" %in% .packages(all.available=TRUE))){
    packageStartupMessage(
      "You need package 'stjudem' if you want to see the demo and examples.\n",
      "Type 'loaddatapkg(\"stjudem\")' for automatic install!\n\n")
  } # if data package not installed
  packageStartupMessage("Type 'demo(macatdemo)' for a quick tour...\n")
  ## show vignette in windows menu  
  if(.Platform$OS.type=="windows" && interactive() && .Platform$GUI=="Rgui"){
    addVigs2WinMenu("macat")
  }
} # .onAttach

.onUnload <- function( libpath ) {
  ## nothing to do here for the moment
} # .onUnload

Try the macat package in your browser

Any scripts or data that you put into this service are public.

macat documentation built on Nov. 8, 2020, 5:44 p.m.