# TODO: Add comment
# 
# Author: internet
###############################################################################



view.rdata <- function(file){
	# function to view the content of an external RData file
	e <- new.env(parent=emptyenv())	# environment is temporally created during function call and is not persistent
	load(file, envir=e)
	objs <- ls(envir=e, all.names=T)
	cat( "\n",paste("Object(s) in ",file," : ",sep=""),"\n" )
	for(obj in objs) {
		message( sprintf(' %s', obj) )
	}
}


#view.rdata("/home/korschi/eclipseR/gharbiM/limma/BioC2010.Rdata")