R/zzz.R

Defines functions onAttach

#.First.lib <- function(libname, pkgname, where)
.onAttach <- function(libname, pkgname)
{
    
    if ((.Platform$OS.type=="windows")&&(.Platform$GUI == "Rgui"))
		{
			winMenuAdd("oneChannelGUI");winMenuAddItem("oneChannelGUI","oneChannelGUI","oneChannelGUI.start()")
			packageStartupMessage(paste("\nTo begin, type oneChannelGUI() or use the pull-down menu.\n"))
		}
		else		packageStartupMessage(paste("\nTo begin, type oneChannelGUI()\n"))

    # I only get .First.lib to ask the user whether they want to start the GUI with
    # a message box for the Windows OS.  I encountered some problems under linux
    # for the case where the Tcl/Tk extensions can't be found (so affylmGUI tries
    # to exit), and speculated that there could be problems arising from running
    # the whole affylmGUI() program before finishing .First.lib.
    if (interactive() && .Platform$OS.type=="windows")
    {
      BeginOneChannelGUI <- tclvalue(tkmessageBox(title="oneChannelGUI",message="Begin oneChannelGUI?",type="yesno",icon="question"))
      if (BeginOneChannelGUI=="yes")  oneChannelGUI()
      else         bringToTop(-1)
    }
}

Try the oneChannelGUI package in your browser

Any scripts or data that you put into this service are public.

oneChannelGUI documentation built on Nov. 17, 2017, 11:02 a.m.