# function to make an Rcmdr plug-in package self-starting # original version contributed by Richard Heiberger .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")) { closeCommander(ask=FALSE, ask.save=TRUE) Commander() } } else { Commander() } } }