R/Menu.loadcatlg.R

In RcmdrPlugin.DoE: R Commander Plugin for (Industrial) Design of Experiments

Menu.loadcatlg <- function(){
    ## FrF2.catlg128 is loaded
    candlist <- ""
    if (requireNamespace("FrF2.catlg128")){
      command <- "require(FrF2.catlg128)"
      logger(command)
      justDoItDoE(command)
      candlist <- c("catlg128.8to15",paste("catlg128",16:23,sep="."))
      }
    else{
        Message(message=gettextRcmdr("There are no catalogues from which to choose, \nplease install package FrF2.catlg128."),
                type="error")
        tkfocus(CommanderWindow())
        return()
        }
    
    initializeDialog(title=gettextRcmdr("Select catalogue of regular fractional factorial 2-level designs"))
    catlgBox <- variableListBox(top, candlist, title=gettextRcmdr("Catalogues (pick one)"),
        initialSelection=NULL)
## create button that calls further menu
## cascade menu in the menu entry
    onOK <- function(){
        command <- getSelection(catlgBox)
        command <- paste(command, "<-", command)
        logger(command)
        justDoItDoE(command)
        closeDialog()
        tkfocus(CommanderWindow())
        }
    OKCancelHelp(helpSubject="Menu.loadcatlg")
    tkgrid(getFrame(catlgBox), sticky="n")
    tkgrid(buttonsFrame, sticky="w")
    dialogSuffix(rows=2, columns=1)
    }