R/021_loadObj.R

In stela2502/BioData: The package allows to annotate a numeric data.table with col and row data

#' @name loadObj
#' @aliases loadObj,BioData-method
#' @rdname loadObj-methods
#' @docType methods
#' @description This function loads the a BioData file and returns the data R object int them.
#'  The function is mainly to keep the scripts simpler. There is no magic involved.
#' @param file the infile
#' @title description of function loadObj
#' @export 

if ( ! isGeneric('loadObj') ){ 
	methods::setGeneric('loadObj', ## Name
		function ( file=NULL ){	
			standardGeneric('loadObj')
		}
)

}else {
	print ("Onload warn generic function 'loadObj' already defined - no overloading here!")
}

#isGeneric <- function( x ) {
#	## just do nothing and return
#	FALSE
#}

setMethod('loadObj', signature = c ('character'),
		definition = function ( file=NULL ){
			if ( is.null(file)){
				stop( "Sorry I need a 'file' to load from" )
			}
			data <- NULL # will be read by the next line
			load( file )
			data
		}
)