Mercurial > repos > pavlo-lutsik > rnbeads
diff RnBeadsGalaxy.R @ 8:7bc6e673c8e8 draft
Uploaded
| author | pavlo-lutsik |
|---|---|
| date | Thu, 18 Apr 2013 07:36:36 -0400 |
| parents | a1c96ef6c111 |
| children |
line wrap: on
line diff
--- a/RnBeadsGalaxy.R Wed Apr 17 08:45:05 2013 -0400 +++ b/RnBeadsGalaxy.R Thu Apr 18 07:36:36 2013 -0400 @@ -41,7 +41,7 @@ # string # }) # -#cat(xml.strings, sep="", file="C:\\Users\\User\\workspace\\RnBeads\\Supplement\\galaxy\\automated.settings.xml.txt") +#cat(xml.strings, sep="", file="automated.settings.xml.txt") # #opt.def.strings<-apply(rnb.opt.spec,1, function(row){ # @@ -52,12 +52,12 @@ # if(row[4]=="logical"){ # def.string<-sprintf("#if str( $options.%s ) == \"True\"\n\t--%s\n#end if\n", opt.name, opt.long) # }else{ -# def.string<-sprintf("#if str( $options.%s ) != \"\"\n\t--%s = \"$options.%s\" \n#end if\n", opt.name, opt.long, opt.name) +# def.string<-sprintf("#if str( $options.%s ) != \"\"\n\t--%s=\"$options.%s\" \n#end if\n", opt.name, opt.long, opt.name) # } # def.string # # }) -#cat(opt.def.strings, sep="", file="C:\\Users\\User\\workspace\\RnBeads\\Supplement\\galaxy\\automated.option.assignments.txt") +#cat(opt.def.strings, sep="", file="automated.option.assignments.txt") rnb.opt.spec$Type<-gsub("\\.vector", "", rnb.opt.spec$Type)