R/autoloadRcmdr.R

In RcmdrPlugin.sos: Efficiently search the R help pages

# By J. Fox

.onAttach <- function(libname, pkgname){
     if (!interactive()) return()
     Rcmdr <- options()$Rcmdr
     plugins <- Rcmdr$plugins
     if (!pkgname %in% plugins) {
         Rcmdr$plugins <- c(plugins, pkgname)
         options(Rcmdr=Rcmdr)
         if("package:Rcmdr" %in% search()) {
             if(!getRcmdr("autoRestart")) {
                 options(Rcmdr=Rcmdr)
                 closeCommander(ask=FALSE, ask.save=TRUE)
                 Commander()
             }
         }
         else {
             Commander()
         }
     }
 }