R/mpOutputHandler.R

In MExPosition: Multi-table ExPosition

mpOutputHandler <- function(res=NULL,mpPlotInfo=NULL)
{	
	if(!is.null(res) && !is.null(mpPlotInfo))
	{	final.output <- list(mexPosition.Data=res,Plotting.Data=mpPlotInfo)
		class(final.output) <- c("mexpoOutput","list")	
		return(final.output)
	}
	else
	{	print("Unknown inputs. mpOutputHandler must exit.")	
		return(0)
	}
	
	print("It is unknown how this was executed. mpOutputHandler must exit.")
	return(0)
}