Changes between Version 9 and Version 10 of xQTLBioinformaticianScript

Timestamp:

2011-09-14T15:49:10+02:00 (13 years ago)

Author:

danny

Comment:

--

xQTLBioinformaticianScript

@@ -117 +117 @@
 
 {{{
-inputname <- getparameter("inputname",jobparams)
+  inputname <- getparameter("inputname",jobparams)
   
-system(paste("wget ",paste(dbpath,"/downloadfile",sep=""),"?name=",inputname,"_ped -O ",inputname,".ped",sep=""))
-report(2,"PEDDownloaded")
-system(paste("wget ",paste(dbpath,"/downloadfile",sep=""),"?name=",inputname,"_map -O ",inputname,".map",sep=""))
-report(2,"MAPDownloaded")
-system(paste("plink --noweb --file ",inputname," --assoc --out ",outname,"",sep=""))
-report(2,"beforeUpload")
-postForm(paste(dbpath,"/uploadfile",sep=""),investigation_name='",investigationname,"', name='",outname,".assoc', type = 'InvestigationFile', file = fileUpload(filename='",outname,".assoc'), style='HTTPPOST')
-report(3,"PLINKfinished")
+  system(paste("wget ",paste(dbpath,"/downloadfile",sep=""),"?name=",inputname,"_ped -O ",inputname,".ped",sep=""))
+  report(2,"PEDDownloaded")
+  system(paste("wget ",paste(dbpath,"/downloadfile",sep=""),"?name=",inputname,"_map -O ",inputname,".map",sep=""))
+  report(2,"MAPDownloaded")
+  system(paste("plink --noweb --file ",inputname," --assoc --out ",outname,"",sep=""))
+  report(2,"beforeUpload")
+  postForm(paste(dbpath,"/uploadfile",sep=""),investigation_name=investigationname, name=paste(outname,".assoc",sep=""), type = 'InvestigationFile', file = fileUpload(filename=paste(outname,".assoc",sep="")), style='HTTPPOST')
+  report(3,"PLINKfinished")
 }}}