Mercurial > repos > pavlo-lutsik > rnbeads

comparison RnBeadsGalaxy.R @ 5:609d1a687bff draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author pavlo-lutsik
date Wed, 17 Apr 2013 08:16:04 -0400
parents d1d0d07a8af4
children
comparison
equal deleted inserted replaced
4:24ac7f1e60f6 5:609d1a687bff
125 data.source[["sample.sheet"]]<-opts[["pheno"]] 125 data.source[["sample.sheet"]]<-opts[["pheno"]]
126 126
127 } 127 }
128 128
129 dump<-sapply(names(opt.class), function(on){ 129 dump<-sapply(names(opt.class), function(on){
130 getopname<-gsub("\\.","-",on) 130 getoptname<-gsub("\\.","-",on)
131 if(getoptname %in% names(opts)){ 131 if(getoptname %in% names(opts)){
132 if(opt.class[on]=="logical"){ 132 if(opt.class[on]=="logical"){
133 rnb.options(on=TRUE) 133 rnb.options(on=TRUE)
134 }else if(opt.class %in% c("character","character.vector")){ 134 }else if(opt.class %in% c("character","character.vector")){
135 ov<-opts[[getoptname]] 135 ov<-opts[[getoptname]]