R/startup.R

In RcmdrPlugin.EBM: Rcmdr Evidence Based Medicine Plug-in Package

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