Mercurial > repos > recetox > ramclustr

comparison ramclustr_wrapper.R @ 8:c043e1fd79d1 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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"