# ZZZ.R #.First.lib <- function(libname, pkgname, where) # Add User's Guide to Windows menu # Gordon Smyth # 23 Jan 2004. Last revised 23 Oct 2004. #{ # if( .Platform$OS.type == "windows" && .Platform$GUI == "Rgui" ) { # winMenuAddItem("Vignettes","limma","limmaUsersGuide()") # } #} .onLoad <- function(libname, pkgname) # Load normexp C code # Gordon Smyth # 4 Jan 2009. { library.dynam("limma", pkgname, libname) } .onUnload <- function(libpath) # Unload normexp C code # Gordon Smyth # 15 Jan 2009. { library.dynam.unload("limma", libpath) } .onAttach <- function(libname, pkgname) # Add User's Guide to Windows menu # Gordon Smyth # 23 Jan 2004. Last revised 4 Jan 2009. { if( .Platform$OS.type == "windows" && .Platform$GUI == "Rgui" ) winMenuAddItem("Vignettes","limma","limmaUsersGuide()") }