R/RcmdrPlugin.FactoMineR-internal.R

In husson/RcmdrPlugin.FactoMineR: Graphical User Interface for FactoMineR

.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()
        }
    }
.packageName <-
"RcmdrPlugin.FactoMineR"