R/mosaicmenu.R

In RcmdrPlugin.mosaic: Adds menu items to produce mosaic plots and assoc plots to Rcmdr

Defines functions mosaicMenuItem weHaveMosaicableTables

Documented in mosaicMenuItem weHaveMosaicableTables

mosaicMenuItem <- function() {
	if (weHaveMosaicableTables()) {
		mosaicSelectDialog() 
	} else {
		Message("No tables available for this type of plot","warning")
	}
}		


weHaveMosaicableTables <- function() {
	length(Filter(function(x)(inherits(get(x),"table")|inherits(get(x),"ftable")|inherits(get(x),"structable")),ls(envir=globalenv())))>0
}

Try the RcmdrPlugin.mosaic package in your browser