Defines functions .onAttach

.onAttach <- function(libname, pkgname){
	if (length(grep("^affylmGUI$", .packages()))>0){
	 stop("Please run limmaGUI and affylmGUI in separate R sessions.")
	#Check whether R has been built with tcltk capabilities.
	capable <- capabilities()
	#the output of this command is like this:
	#    jpeg      png     tiff    tcltk      X11     aqua http/ftp  sockets   libxml     fifo   cledit    iconv      NLS  profmem    cairo 
	#    TRUE     TRUE     TRUE     TRUE    FALSE    FALSE     TRUE     TRUE     TRUE    FALSE     TRUE     TRUE     TRUE     TRUE     TRUE 
		stop(paste("R needs to be built with tcltk capabilities.",
			   "Install a version of R which has this capability.",
			   "MS Windows binary versions of R include tcltk capabilities.",
			   "MAC OS X binary versions of R include tcltk capabilities.",
			   "When source code versions of R are compiled the default value ",
			   "for the --with-tcltk switch is yes. Do not set it to no.", 
			   "Check your version of R with the \"capabilities()\" command."
		#R has tcltk capabilities
	} #end of else/if(!capable["tcltk"])
	if (interactive()){
		if ((.Platform$OS.type=="windows")&&(.Platform$GUI == "Rgui")){
			packageStartupMessage("\nTo begin, type limmaGUI() or use the pull-down menu.\n", appendLF = FALSE)
			#cat(paste("\nTo begin, type limmaGUI() or use the pull-down menu.\n"))
			packageStartupMessage("\nTo begin, type limmaGUI()\n", appendLF = FALSE)
			#cat(paste("\nTo begin, type limmaGUI()\n"))
		} #end of if ((.Platform$OS.type=="windows")&&(.Platform$GUI == "Rgui"))
		if (interactive() && .Platform$OS.type=="windows"){
			BeginlimmaGUI <- tclvalue(tkmessageBox(title="limmaGUI",message="Begin limmaGUI?",type="yesno",icon="question"))
			if (BeginlimmaGUI=="yes"){
		} #end of if (interactive() && .Platform$OS.type=="windows")
	} #end of if (interactive())
} #end of.onAttach <- function(libname, pkgname)

Try the limmaGUI package in your browser

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

limmaGUI documentation built on Nov. 8, 2020, 6:55 p.m.