R/MAINTAINER_functions.R

In ewouddt/RcmdrPlugin.BiclustGUI: 'Rcmdr' Plug-in GUI for Biclustering

# Project: BiclustGUI
# 
# Author: Gebruiker
###############################################################################



# A function to check if an object is a result of ANY of the biclustering methods in this GUI
.isbiclustGUIresult <- function(x,asis=FALSE){  # asis = TRUE when what you input is already transformed from character (but you want to prevent extra transformation, e.g. when in a forloop)
	
	if(class(x)=="character" & !asis){
		eval(parse(text=paste("x <- ",x,sep="")))
	}
	
	if(class(x)=="iBBiG"){return(TRUE)}
	if(class(x)=="Biclust"){return(TRUE)}
	if(class(x)=="Factorization"){return(TRUE)}
	if(class(x)=="QUBICBiclusterSet"){return(TRUE)}
	if(class(x)=="biclustering"){return(TRUE)}
#	if(.isISA(x)){return(TRUE)}
	return(FALSE)

}

# Some other classes are extensions of "Biclust" or simply the same. These are listed with this function.
.isBiclustresult <- function(x,asis=FALSE){
	if(class(x)=="character" & !asis){
		eval(parse(text=paste("x <- ",x,sep="")))
	}
	if(class(x)=="iBBiG"){return(TRUE)}
	if(class(x)=="Biclust"){return(TRUE)}
	if(class(x)=="QUBICBiclusterSet"){return(TRUE)}
	return(FALSE)
}


#PLACEHOLDER <- function(){}