comparison RnBeadsGalaxy.R @ 5:609d1a687bff draft

Uploaded

4:24ac7f1e60f6

	data.source[["sample.sheet"]]<-opts[["pheno"]]

}

dump<-sapply(names(opt.class), function(on){
	getopname<-gsub("\\.","-",on)
	if(getoptname %in% names(opts)){
		if(opt.class[on]=="logical"){
			rnb.options(on=TRUE)
		}else if(opt.class %in% c("character","character.vector")){
			ov<-opts[[getoptname]]

5:609d1a687bff

	data.source[["sample.sheet"]]<-opts[["pheno"]]

}

dump<-sapply(names(opt.class), function(on){
	getoptname<-gsub("\\.","-",on)
	if(getoptname %in% names(opts)){
		if(opt.class[on]=="logical"){
			rnb.options(on=TRUE)
		}else if(opt.class %in% c("character","character.vector")){
			ov<-opts[[getoptname]]