R/zzz.R

Defines functions .onAttach

.onAttach = function(libname, pkgname) {
	.jpackage(pkgname);
	if(canUseJava() && .Platform$OS!="unix"){
		lf<-.jcall("javax.swing.UIManager","S","getSystemLookAndFeelClassName");
		.jcall("javax.swing.UIManager",,"setLookAndFeel",lf);
		.jcall("javax.swing.JDialog",,"setDefaultLookAndFeelDecorated",TRUE);
	}

	desc <- packageDescription(pkgname)
	DQdate <-  desc$Date
	DQVersion =  desc$Version
	packageStartupMessage("This is ", pkgname, " ", desc$Version, " ", desc$Date)
	return(invisible(NULL))
}

Try the rChoiceDialogs package in your browser

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

rChoiceDialogs documentation built on June 24, 2022, 5:06 p.m.