Mercurial > repos > recetox > ramclustr
comparison ramclustr_wrapper.R @ 8:c043e1fd79d1 draft
planemo upload for repository https://github.com/RECETOX/galaxytools/tree/master/tools/ramclustr commit 4b8a43b863ff8a0ff1d5a08e516068853adf358d
| author | recetox |
|---|---|
| date | Tue, 16 Apr 2024 11:30:05 +0000 |
| parents | 09cabbc3d12d |
| children | 2d94da58904b |
comparison
equal
deleted
inserted
replaced
| 7:09cabbc3d12d | 8:c043e1fd79d1 |
|---|---|
| 1 store_output <- function(ramclustr_obj, | 1 store_output <- function(ramclustr_obj, |
| 2 output_merge_msp, | 2 output_merge_msp, |
| 3 output_spec_abundance, | 3 output_spec_abundance, |
| 4 msp_file) { | 4 msp_file) { |
| 5 RAMClustR::write.msp(ramclustr_obj, one.file = output_merge_msp) | 5 RAMClustR::write.msp(ramclustr_obj, one.file = output_merge_msp) |
| 6 write.csv(ramclustr_obj$SpecAbund, | 6 write.table(ramclustr_obj$SpecAbund, |
| 7 file = output_spec_abundance, | 7 file = output_spec_abundance, |
| 8 row.names = TRUE, quote = FALSE | 8 row.names = TRUE, quote = FALSE, col.names = NA, sep = "\t" |
| 9 ) | 9 ) |
| 10 | 10 |
| 11 if (!is.null(msp_file)) { | 11 if (!is.null(msp_file)) { |
| 12 exp_name <- ramclustr_obj$ExpDes[[1]][which( | 12 exp_name <- ramclustr_obj$ExpDes[[1]][which( |
| 13 row.names(ramclustr_obj$ExpDes[[1]]) == "Experiment" | 13 row.names(ramclustr_obj$ExpDes[[1]]) == "Experiment" |