diff ramclustr_wrapper.R @ 2:75dafb766417 draft

planemo upload for repository https://github.com/RECETOX/galaxytools/tree/master/tools/ramclustr commit c321421a07bfdcc9ed423e9ed2ee794157984ba1
author recetox
date Wed, 29 Jun 2022 10:00:10 +0000
parents 36104baf75da
children 2ec9253a647e
line wrap: on
line diff
--- a/ramclustr_wrapper.R	Fri Apr 22 13:48:56 2022 +0000
+++ b/ramclustr_wrapper.R	Wed Jun 29 10:00:10 2022 +0000
@@ -7,8 +7,8 @@
     write.csv(ramclustr_obj$SpecAbund, file = output_spec_abundance, row.names = TRUE)
 
     if (!is.null(msp_file)) {
-        exp.name <- ramclustr_obj$ExpDes[[1]][which(row.names(ramclustr_obj$ExpDes[[1]]) == "Experiment"), 1]
-        filename <- paste("spectra/", exp.name, ".msp", sep = "")
+        exp_name <- ramclustr_obj$ExpDes[[1]][which(row.names(ramclustr_obj$ExpDes[[1]]) == "Experiment"), 1]
+        filename <- paste("spectra/", exp_name, ".msp", sep = "")
         file.copy(from = filename, to = msp_file, overwrite = TRUE)
     }
 }