Mercurial > repos > pieterlukasse > prims_metabolomics
comparison metaMS_cmd_interface.r @ 42:664ccd5f7cf8
small fix for png method
| author | pieter.lukasse@wur.nl |
|---|---|
| date | Fri, 07 Nov 2014 11:45:16 +0100 |
| parents | e67149fbff20 |
| children |
comparison
equal
deleted
inserted
replaced
| 41:e67149fbff20 | 42:664ccd5f7cf8 |
|---|---|
| 74 eicraw <- getEIC(LC$xset@xcmsSet, groupidx = c(groupidx1), rt = "raw") | 74 eicraw <- getEIC(LC$xset@xcmsSet, groupidx = c(groupidx1), rt = "raw") |
| 75 for (i in 1:length(groupidx1)) | 75 for (i in 1:length(groupidx1)) |
| 76 { | 76 { |
| 77 figureName <- paste(args.htmlReportFile.files_path, "/figure", i,".png", sep="") | 77 figureName <- paste(args.htmlReportFile.files_path, "/figure", i,".png", sep="") |
| 78 html <- paste(html,"<img src='", "figure", i,".png' />", sep="") | 78 html <- paste(html,"<img src='", "figure", i,".png' />", sep="") |
| 79 png( figureName ) | 79 png( figureName, type="cairo" ) |
| 80 plot(eiccor, LC$xset@xcmsSet, groupidx = i) | 80 plot(eiccor, LC$xset@xcmsSet, groupidx = i) |
| 81 devname = dev.off() | 81 devname = dev.off() |
| 82 } | 82 } |
| 83 } | 83 } |
| 84 | 84 |