R/getControlType.R

In lumi: BeadArray Specific Methods for Illumina Methylation and Expression Microarrays

`getControlType` <-
function(controlData) 
{
	if (is(controlData, 'LumiBatch')) {
		controlData <- controlData(controlData)
	} 
	if (is(controlData, 'data.frame')) {
		if (nrow(controlData) == 0) stop('controlData is empty!')
		return(unique(as.character(controlData$controlType)))
	} else if (is(controlData, 'MethyLumiQC')) {
		return(controlTypes(controlData))
	} else {
		return(NA)
	}
}